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ABSTRACT 


A  system  of  digital  computer  programs  developed  to  aid  in  the 
design  and  documentation  of  instrumentation  systems  is  described. 
Included  are  brief  descriptions  of  system  concepts  and  capabilities, 
required  system  inputs,  explanations  of  system  outputs  and  infor¬ 
mation  contained  therein,  and  system  utilization.  This  system  is 
currently  in  use  by  the  ETF  J -Instrument  Branch  of  the  Arnold  Engi¬ 
neering  Development  Center. 
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SECTION  I 
INTRODUCTION 


Testing  of  rocket  and  jet  engines  under  simulated  altitude  condi¬ 
tions  at  Arnold  Engineering  Development  Center  usually  requires  the 
acquisition  of  several  hundred  channels  of  data  per  test.  A  major  por¬ 
tion  of  these  data  consists  of  pressures  and  temperatures  which  are 
used  to  determine  engine  performance  and  test  cell  environment.  The 
nature  of  such  tests  dictates  that  like  measurements  be  made  at  several 
different  locations  on  the  engine  and  in  the  test  cell.  The  specific  meas¬ 
urements  which  are  made  are  dependent  on  the  type  of  information 
desired  for  the  test  program. 

Test  programs  may  require  from  one  week  to  as  high  as  two  years 
of  test  time,  and  turnaround  time  between  test  programs  must  be  held 
to  a  minimum.  Therefore,  it  is  not  feasible  to  permanently  install  com¬ 
plete  instrumentation  systems.  However,  since  all  test  programs 
require  large  quantities  of  certain  types  of  measurements,  it  is  feasible 
to  permanently  install,  and  document  by  engineering  drawings,  basic 
instrumentation  system  components  and  then  utilize  these  components 
as  required  by  the  test  programs.  All  permanently  installed  components, 
are  connected  to  interconnection  devices  which  allow  for  complete  versa¬ 
tility  of  equipment  usage  and  almost  limitless  configurations  of  the  equip¬ 
ment  to  meet  different  test  program  instrumentation  requirements. 

The  permanently  installed  instrumentation  equipment  associated  with 
a  test  cell  is  grouped  into  three  major  portions:  (1)  wiring,  or  hard¬ 
wired  signal  conditioners,  used  to  route  signals  from  permanent  instru¬ 
mentation  connection  points  in  the  test  cell  or  area  to  an  interconnection 
device,  (2)  signal  conditioning  devices  having  both  inputs  and  outputs 
wired  to  the  interconnection  device,  and  (3)  recording  or  readout  devices 
having  inputs  wired  to  the  interconnection  device. 

Complete  measurement  systems  are  built  up  by  connecting  trans¬ 
ducers  to  the  permanently  installed  components  using  specially  fabricated 
cabling  and  then  interconnecting  {patching)  the  permanent  components  to 
establish  the  desired  signal  conditioning  and  recording  and/or  readout 
configuration. 

Engineering  releases  (called  an  Instrument  Book)  document  the 
measurement  systems  necessary  for  a  test  program  and  are  used  to 
accomplish  the  installation,  wiring,  interconnecting,  and  setting  up  of 
the  required  instrumentation  systems.  The  Instrument  Book  contains 
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information  such  as  measurement  nomenclature,  transducer  assign¬ 
ments,  cabling  to  be  fabricated  for  connection  of  the  transducer  to  a 
permanent  instrumentation  connection  point,  the  specific  permanent 
instrumentation  components  required,  the  exact  required  interconnec¬ 
tion  of  components,  setup  of  signal  conditioners  and  recording  and/or 
readout  devices,  data  reduction  constants  and  methods,  transducer 
calibration  data,  and  sketches  or  drawings  which  show  the  physical 
location  of  each  transducer  or  pickup.  A  new  Instrument  Book  is 
prepared  and  released  for  each  test  program  and  is  revised  when  the 
applicable  test  program  requirements  change. 

The  task  of  compiling  an  Instrument  Book  consists  largely  of  pre¬ 
paring  listings  of  the  specific  hardware  used  for  each  measurement, 
specifying  the  interconnections  which  must  be  made  to  connect  the 
different  components  of  the  measurement  channel,  and  maintaining  a 
running  inventory  of  the  equipment  that  has  been  used  and  that  which 
remains  available.  This  task  necessarily  entails  a  large  amount  of 
manual  bookkeeping  and  the  transferring  of  information  from  one  form 
to  another.  To  eliminate  as  many  of  these  manual  manipulations  as 
possible,  a  system  of  computer  programs  was  developed  to  aid  in  the 
design  and  documentation  of  instrumentation  systems.  The  concept  of 
operation,  information  utilized,  information  obtained,  and  additional 
(and  planned  additional)  capabilities  of  this  computer  program  system 
are  described  in  this  report. 


SECTION  II 
APPROACH 


To  use  computers  in  the  design  and  documentation  of  instrumenta¬ 
tion  systems,  sufficient  information  must  be  supplied  concerning  the 
desired  configuration  and  the  available  equipment.  To  accomplish  this, 
"model"  instrumentation  systems  and  reference  files  were  established. 
These  systems  and  files  are  discussed  in  the  following  paragraphs. 


2.1  MODEL  INSTRUMENTATION  SYSTEMS 

The  first  step  taken  was  to  establish  model  instrumentation  systems, 
called  Typical  Hookups  (Fig.  1,  Appendix  I).  Each  Typical  Hookup  con¬ 
sists  of  a  specific  type  of  transducer,  signal  conditioning  equipment, 
readouts  and/or  recording  devices,  and  the  necessary  interconnecting' 
wiring.  It  should  be  noted  that  a  Typical  Hookup  requires  only  certain 


2 


AEDC-TR-71-109 


types,  of:  equipment  rather  than  specific  pieces  of  hardware.  The  equip¬ 
ment  specified  on  a  Typical  Hookup,  with  the  exception  of  the  transducer 
and  fabricated  cable,  consists  of  permanently  installed  instrumentation 
equipment  and  wiring. 

*  i 

The  connection  of  the. transducer  to  the  permanent  equipment  is 
accomplished  by  the  use  of  nonpermanent  (fabricated)  cabling.  This 
cabling  is  fabricated  for  each  measurement  and  each  new  test  program 
in  accordance  with  released  drawings  called  Standard  Cable  Fabrications 
(Fig.  2).  Each  Standard  Cable  Fabrication  provides  the  detailed  informa¬ 
tion  to  permit  fabrication  of  cabling  which  will  interconnect  certain  types 
of,transducers  with  a  specific  type  of  connection  point  which  is  a  part 
of  the  permanent  instrumentation  system.  Because  of  standardization 
of  connection  points,  the  same  Standard  Cable  Fabrication  may  be  used 
with  many  different  Typical  Hookups.  Each  Typical  Hookup  specifies  a 
Standard  Cable  Fabrication  to  be  used. 

•By  translating  the  Typical  Hookups  into  a  form  compatible  with  com¬ 
puter  methods,  these  Typical  Hookups  were  used  to  guide  the  computer 
in  the.- design  of  actual  measurement  systems. 

T. Drawings  of  each  Typical  Hookup  and  Standard  Cable  Fabrication 
were- released  for  use  during  setup,  checkout,  and  trouble  shooting  of 
measurement  systems. 


2.2  REFERENCE  FILES  FOR  COMPUTER 

Since  Typical  Hookups  were  to  be  utilized  as  guides  for  selection 
of  measurement  system  hardware,  reference  files  of  Typical  Hookups 
and  files  of  all  instrumentation  hardware  available  for  use  were  estab¬ 
lished.  The  instrumentation  hardware  was  grouped  into  two  categories: 

(1)  .transducers  and  (2)  permanently  installed  equipment  and/or  wiring. 

To  establish  the  transducer  file,  all  transducers  were  assigned  a 
type  code.  The  type  code  was  representative  of  the  type  (Bridge,  LVDT, 
etc. )  of  transducer  and  the  connector  and  connector  pin  functions  requii'ed 
for  mating  with  the  transducer.  All  electrically  interchangeable  trans¬ 
ducers  thus  have  identical  type  codes. 

,  .  .For  the  Equipment  File,  all  permanently  installed  instrumentation 
hardware  was  categorized  as  to  its  specific  function,  and  each  individual 
unit  or  channel  was  assigned  a  type  code  so  that  all  functionally  inter¬ 
changeable  equipment  has  identical  type  codes.  Additionally,  each  unit 
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or  channel  of  equipment  was  assigned  a  unique  identification  code  that 
corresponds  to  the  actual  number  by  which  the  equipment  is  identified 
and  which  is  shown  on  the  permanent  equipment  installation  drawings. 

By  using  these  codes,  reference  files  of  measurement  systems 
(Typical  Hookups),  the  permanent  equipment  available  for  use  (equip¬ 
ment  inventory),  and  the  available  transducers  were  established  for 
use  by  the  computer.  These  files  are  discussed  in  the  following  para¬ 
graphs. 

2.2.1  Reference  File  of  Model  Instrumentation  Systems 

The  reference  file  of  Typical  Hookups  contains  the  information 
required  to  guide  the  computer  in  the  selection  of  transducers,  signal 
conditioning  equipment,  readouts  and/or  recording  devices,  and  equip¬ 
ment  interconnections.  This  information  consists  of:  (1)  Typical 
Hookup  identification  number,  (2)  type  code  of  required  transducer, 

(3)  identification  number  of  the  Standard  Cable  Fabrication  to  be 
utilized,  (4)  type  code  of  cable  or  hardwired  signal  conditioner  used 
to  route  signal  from  permanent  test  cell  or  area  connection  point  to 
interconnection  device,  (5)  type  code  or  codes  of  desired  inter- 
connectable  signal  conditioners,  (6)  type  code  of  readout  or  recording 
devices,  (7)  optional  English  description  of  signal  routing,  and  (8)  sys¬ 
tem  points  where  interconnections  are  required. 

The  reference  file  of  Typical  Hookups  is  applicable  to  any  test  com¬ 
plex  and  need  be  prepared  only  once.  Revision  of  the  file  is  required 
only  as  Typical  Hookups  are  added,  deleted,  or  changed.  Figure  3  is 
an  example  of  a  portion  of  the  reference  file  of  Typical  Hookups.  The 
information  on  each  line  is  contained  on  a  single  80-character  punched 
card. 

2.2.2  Reference  File  of  Instrumentation  Equipment 

To  supply  information  concerning  equipment  available  for  use,  a 
reference  file  of  all  permanently  installed  instrumentation  wiring  and 
equipment  was  established.  The  information  in  this  file  consists  of: 

(1)  card  number  for  identification  and  sorting  of  file  punched  cards, 

(2)  identification  code  of  the  equipment,  (3)  English  description  of 

the  equipment,  (4)  applicable  equipment  type  code,  (5)  interconnection 
device  and  point  to  which  the  equipment  input  is  connected,  (6)  inter¬ 
connection  device  and  point  to  which  the  equipment  output  is  connected, 
and  (7)  a  designation  letter  which  identifies-  the  test  complex  with  which 
the  equipment  is  associated.  In  addition,  space  is  provided  for  the  com¬ 
puter  to  enter  the  designation  of  the  measurement  systems  to  which  the 
equipment  is  assigned. 
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The  .instrumentation  equipment  reference  file  is  applicable  to  a 
given, individual  test  complex  and  need  be  prepared  only  once  for  each 
complex.  Revision  of  the  file  is  required  when  equipment  availability, 
installation,  or  assignment  changes  occur.  Figure  4  is  an  example  of 
a  portion  of  the  equipment  reference  file.  The  information  is  contained 
on  a  single  80-character  punched  card. 

2.2.3  Reference  File  of  Transducers 

A  reference  file  of  transducers  was  established  to  provide  informa¬ 
tion  as  to  the  available  transducers,  the  range  and  function  of  each 
transducer;  and  the  transducer  calibration  data.  The  information  con¬ 
tained  in  this  file  for  each  transducer  consists  of:  (1)  type  code  assigned 
to  the  transducer,  (2)  transducer  range  in  engineering  units,  (3)  range 
units,  (4)  transducer  manufacturer's  name,  (5)  identification  or  serial 
number  assigned  to  the  transducer,  (6)  type  of  calibration/ signal  con¬ 
ditioning  circuit  used  with  transducer  during  calibration,  (7)  engineer¬ 
ing  units  value  of  each  of  five  standard  calibration  steps  (if  applicable), 

(8)  .units  associated  with  calibration  values,  (9)  the  date  on  which  the 
transducer  will  next  be  due  for  its  next  periodic  calibration,  and  (10) 
code  -letter  (if  applicable)  to  identify  individual  bridges  or  outputs  of  a 
multiple -output  transducer.  It  should  be  noted  that  each  individual  out¬ 
put  of  a  multiple -output  transducer  is  entered  in  the  file  as  a  separate 
transducer.  The  information  for  each  transducer  is  contained  in  a  total 
,of  five  punched  cards  with  each  card  corresponding  to  one  of  five  stand¬ 
ard  calibration  steps. 

i 

'  The  reference  file  of  transducers  is  applicable  to  all  test  complexes 
utilizing  the  transducer  ''pool"  and  is  prepared  only  once.  Revision  of 
this  file  is  required  as  transducer  assignment  changes  are  made  or  when 
transducers  are  recalibrated.  Figure  5  is  an  example  of  a  portion  of  the 
transducer  reference  file. 


2.3  SYSTEM  REQUIREMENTS 

■  / 

The  quantity,  types,  and  other  pertinent  information  necessary  to 
permit  computer  design  of  instrument  systems  were  communicated  to 
the  ^computer  by  the  use  of  punched  cards  referred  to  as  input  cards. 
These  cards  are  used  to  provide  the  following  information:  (1)  type  of 
system  (by  Typical  Hookup  number)  and  range  required  for  each  meas¬ 
urement  system,  (2)  the  parameter  designation,  (3)  measurement 
system  nomenclature  and  transducer  location  sketch  identification  num¬ 
ber-;  and  (4)  any  preselected  equipment.  These  cards  must  be  prepared 
for  each  Instrument  Book  to  be  processed  by  the  computer. 
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In  addition,  punched  cards  referred  to  as  data  reduction  cards  are 
used  to  provide  such  information  as- the  methods  for  data  reduction 
(type  of  calibrations,  etc. )  and  to  indicate  the  data  reference.  These' 
cards  must  also  be  prepared  (if  data  reduction  information  is  desired) 
for  each  Instrument  Book  to  be  processed  by  the  computer.  Figure  6 
is  an  example  of  both  input  and  data  reduction  cards. 


2.4  COMPUTER  PROGRAM 

The  computer  program  system  was  prepared  so  that  the  previously 
discussed  reference  file  of  Typical  Hookups  would  guide  the  computer 
in  building  up  measurement  systems.  To  build  up  a  measurement  sys¬ 
tem,  the  computer  program  selects  required  hardware  from  the  trans¬ 
ducer  and  equipment  reference  files  in  accordance  with  the  input’ card 
and  selected  Typical  Hookup  requirements.  The  program  allows  for 
the  preselection  of  all  or  any  portion  of  the  hardware  to  be  used  for  a 
particular  measurement  parameter.  If  specific  hardware  is  not  pre¬ 
selected  and  specified  by  identification  number  on  the  input  card,  the 
computer  program  will  select  the  transducer  and  hardware  in  accord¬ 
ance  with  the  type  codes  specified  on  the  Typical  Hookup.  When  hard¬ 
ware  is  selected  for  use  with  a  parameter,  the  computer  program 
assigns  it  to  that  parameter  so  that  it  cannot  be  selected  for  use  with 
any  other  parameter.  Also,  the  interconnections  which  are  required 
to  connect  the  selected  hardware  in  proper  configuration  are  selected 
and  tabulated  by  item  number. 

The  result  of  a  computer  run  with  the  program  system  is  a  series 
of  listings  which  describes  the  instrumentation  systems  that  are  to  be 
used  for  a  test  program.  These  listings  are  discussed  in  Section  IV. 

Details  of  the  computer  programs  are  not  discussed  in  this  report. 
However,  listings  of  actual  programs  and  program  flow  charts  are  con¬ 
tained  in  Appendix  II  for  analysis  if  desired. 


SECTION  III 

INFORMATION  UTILIZED  BY  COMPUTER  PROGRAM 


3.1  REFERENCE  FILES 

As  discussed  in  Section  II,  the  computer  program  utilizes  the 
Typical  Hookup,  equipment,  and  transducer  reference  files.  These 
files  are  prepared  and  maintained  on  punched  cards,  permitting  easy 
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.revision  of  the  files.  Prior  to  use,  the  files  are  transferred  to  mag¬ 
netic  tapes  which  are  used  to  input  the  file  information  to  the  computer 
program. 


3.2  NECESSARY  INPUT  INFORMATION 

In  addition  to  the  reference  files,  the  computer  program  must  have 
additional  information  before  it  can  design  and  document  a  measurement 
system.  This  information  is  supplied  by  the  previously  described  input 
.cards  and  consists  of  (1)  parameter  designation  assigned  to  the  measure¬ 
ment  system,  (2)  the  number  of  the  Typical  Hookup  to  be  utilized  as  a 
guide  for  design  of  the  system,  (3)  the  range  or  the  identification  num¬ 
ber  <?f  the  transducer  to  be  used  for  the  measurement,  (4)  Instrument 
Book  item  number  assigned  to  the  measurement,  and  (5)  the  card  count 
number  which  identifies  input  cards  associated  with  the  measurement 
and  which  specifies  the  processing  sequence  of  that  group  of  cards.  It 
should  be  noted  that,  generally,  the  number  of  input  cards  required  for 
a  measurement  corresponds  to  the  number  of  independent  readouts 
and/or  recording  devices  desired  for  that  measurement. 


3.3  OPTIONAL  INPUT  INFORMATION 

Information  not  required  by  the  computer  program,  but  in  some 
cases  desirable,  may  also  be  supplied  on  the  input  cards  for  each  meas¬ 
urement  system.  This  information  consists  of:  (1)  parameter  nomen¬ 
clature  which  is  descriptive  of  the  measurement,  (2)  identification 
number  of  specific  signal  routing  if  such  is  desired,  (3)  identification 
number  of  specific  signal  conditioning  hardware  if  preselected,  (4)  iden¬ 
tification  number  of  specific  readout  and/or  recording  hardware  if  pre¬ 
selected,  (5)  the  sketch  number  which  shows  the  physical  location  and 
installation  of  the  transducer  in  the  test  cell  or  area,  and  (7)  a  priority 
code  if  it  is  desirable  to  process  the  input  cards  for  this  measurement 
prior  to  those  for  lower  priority- measurements.  Inclusion  of  all  or 
any  portion  of  the  above  information  on  the  input  cards  is  optional. 


3.4  DATA  REDUCTION  INFORMATION 

Data  reduction  cards  contain  the  parameter  designation,  the  identi¬ 
fication  code  for  the  particular  step  of  the  calibration  sequence  which 
applies  to  the  assigned  readout  and/or  recorder,  and  the  data  reference 
code.  The  above  codes  instruct  the  computer  as  to  which  calibration 
steps  are  to  be  used  to  reduce  the  data  for  a  parameter  and  to  the 
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particular  reference  point  for  the  calibration.  The  specified  calibra¬ 
tion  information  (obtained  from  the  transducer  file  or  from  tables  of 
standard  millivolt  substitution  calibration  values  built  into  the  computer 
program)  will  be  printed  on  the  data  reduction  information  listing.  This 
listing  is  discussed  in  Section  IV. 


SECTION  IV 
COMPUTER  OUTPUTS 


As  previously  stated,  the  result  of  a  computer  run  is  a  series  of 
listings  which  describes  the  instrumentation  systems  that  are  to  be  used. 
Most  of  these  listings  are  incorporated  in  the  Instrument  Book,  and  the 
remaining  ones  are  maintained  as  equipment  inventory  and  utilization 
lists.  These  listings  are  discussed  in  the  following  paragraphs. 


4.1  HOOKUP  INFORMATION 

The  hookup  information  listing  is  incorporated  in  the  Instrument 
Book  so  that  instrumentation  components  can  be  properly  connected  to 
form  complete  measurement  systems.  For  each  measurement,  hookup 
information  consists  of  (1)  parameter  designation  and  nomenclature, 

(2)  identification  numbers  of  transducer  and  all  equipment  utilized  with 
the  measurement  and  the  order  in  which  it  is  connected,  (3)  identification 
number  of  the  Standard  Cable  Fabrication  to  be  used  to  connect  the  trans¬ 
ducer  to  the  specified  permanent  connection  point,  (4)  identification  num¬ 
ber  of  the  Typical  Hookup  by  which  the  system  was  designed,  (5)  assigned 
number  of  the  Instrument  Book  sketch  which  shows  the  physical  location  of 
the  transducer,  and  (6)  the  Instrument  Book  item  number  assigned  to  the 
parameter.  Figure  7  is  a  sample  page  of  a  hookup  information  listing. 


4.2  INTERCONNECTION  INFORMATION 

To  connect  the  permanently  installed  equipment  specified  in  the 
hookup  listing,  specific  points  on  the  interconnection  devices  must  be 
connected.  The  interconnection  information  listing  specifies  the  exact 
interconnections  required  and  the  item  number  of  the  measurement 
system  with  which  they  are  associated.  This  listing  is  included  in  the 
Instrument  Book  for  use  during  hookup,  checkout,  and  trouble  shooting 
of  the  measurement  systems. 
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4.3  CABLE  FABRICATION  AND  INSTALLATION  INFORMATION 

To  facilitate  the  fabrication  and  installation  of  cables  used  to 
connect  transducers  to  permanent  connection  points,  a  listing  of  re¬ 
quired  cable  fabrications  is  produced  and  included  in  the  Instrument 
Book.  This  listing  specifies  identification  number  of  the  Standard 
Cable  Fabrication  to  be  used  for  each  measurement  system,  the 
points  to  which  each  end  of  the  cable  is  to  be  connected,  and  the 
first  signal  conditioner  used  with  the  parameter. 


4.4  DIGITAL  SYSTEM  CHANNEL  ASSIGNMENTS 

To  facilitate  the  setup  and  checkout  of  multiple -channel  digital 
recording  systems,  a  channel  number  ordered  listing  of  the  param¬ 
eters  associated  with  the  system  is  included  in  the  Instrument  Book. 
The  designation  of  the  parameter  to  which  a  channel  is  assigned  is 
printed  beside  the  channel  number,  thus  allowing  rapid  determina¬ 
tion  of  the.  channels  used  and  all  channel  assignments. 


4.5  DATA  REDUCTION  INFORMATION 

Data  reduction  information  listings  are  included  in  the  Instrument 
Book.  This  information  consists  of  listings  for  each  recorder  and  the 
parameter  assigned  to  the  recorder  or  recorder  channel.  In  addition, 
the  calibration  step  number  code  and  engineering  units  equivalent 
value  of  the  calibration  step  along  with  the  data  reference  for  each 
parameter  are  included. 


4.6  UPDATED  REFERENCE  FILES 

Listings  of  the  reference  files  which  were  used  by  the  computer 
program  are  maintained  as  equipment  inventory  and  utilization  lists. 
The  listing  of  the  Typical  Hookup  file  is  used  for  reference  as  to  the 
information  supplied  to  the  computer  for  the  given  computer  rim. 

When  a  transducer  or  other  equipment  is  selected  for  use  with  a 
measurement  during  a  computer  run,  the  appropriate  reference  file  is 
updated  to  show  that  the  selected  hardware  is  assigned  to  the  measur¬ 
ing  system.  Upon  completion  of  the  run,  listings  of  the  updated  trans¬ 
ducer  and  equipment  files  are  produced.  These  listings  show  all  the 
transducer  and  equipment  reference  information  used  and  the  hardware 
utilized  for  each  measurement.  Listings  of  the  updated  files  provide 
an  excellent  transducer  and  equipment  inventory. 
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SECTION  V 

ADDITIONAL  COMPUTER  PROGRAM  CAPABILITIES 


In  addition  to  its  normal  use  for  design  and  documentation  of  elec¬ 
trical  instrumentation  systems,  the  computer  program  is  frequently 
used  to  design  and  document  pneumatic  systems.  Special  reference 
files  of  pneumatic  system  components  and  Typical  Hookups  are  supplied 
to  the  computer  as  reference  files.  The  computer  processes  input  cards 
for  pneumatic  systems  and  outputs  pneumatic  hookup,  interconnection, 
and  assignment  information  in  the  same  manner  as  for  electrical  sys¬ 
tems. 

Another  feature  of  the  computer  program  provides  that,  on  com¬ 
pletion  of  a  computer  run  of  an  Instrument  Book,  all  information  that 
the  computer  contains  at  that  time  is  transferred  to  a  special  reel  of 
magnetic  tape.  By  utilizing  this  tape  reel  and  the  special  revision 
capabilities  of  the  program,  the  Instrument  Book  can  be  revised  by 
the  computer.  In  such  cases,  all  information  and  assignments  which 
are  not  altered  by  the  specific  use  of  the  revision  capability  will  remain 
exactly  as  they  were  at  the  completion  of  the  previous  run. 


SECTION  VI 

PLANNED  ADDITIONAL  PROGRAM  CAPABILITIES 


The  further  development  of  the  program  system  to  allow  the  com¬ 
puter  to  specify  the  setup  of  multiple  or  adjustable  range  equipment 
utilized  with  measurement  systems  is  planned  in  the  near  future.  This 
capability  will  include  such  things  as  specifying  gain  settings  for  vari¬ 
able  gain  devices  and  specifying  range  for  selectable  range  readouts 
and/or  recorders. 

In  short,  although  a  rather  substantial  start  has  been  made  toward 
automating  much  of  the  routine  aspect  of  Instrumentation  Systems  Design, 
continued  efforts  to  expand  and  improve  the  system  are  envisioned. 
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APPENDIXES 
I.  ILLUSTRATIONS 
II.  COMPUTER  SYSTEM  PROGRAM 
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NOttt: 

1.  For  parameter  FFV-1A.  all  equipment  has  been  preselected  and  specified  by  Identification  number  on  the  Input  cards. 

2.  For  parameter  POJH,  only  the  required  Inlormation  plus  the  nme  of  a  particular  transducer  manufacturer  Is 


Included  on  the  Input  card. 

3.  For  parameter  TOV-A.  therequIredlnforffletlonandthetypocodesofthedesIrtdhinMredsiqnelconifitionerend 
readout  are  specified  on  the  Input  card. 

4.  For  parameter  PTCV-1,  only  the  required  Information  is  on  the  Input  card, 


Fig.  6  Input  and  Data  Reduction  Cards 
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APPENDIX  II 

COMPUTER  SYSTEM  PROGRAM 


For  those  desiring  detailed  information  about  the  program  system, 
the  computer  system  program  flow  charts  and  program  listings  are  pre¬ 
sented.  Figure  II- 1  is  the  program  flow  chart  for  the  programs  which 
produce  the  various  Instrument  Book  listings,  and  Fig.  II-2  is  the  pro¬ 
gram  flow  chart  for  the  programs  which  revise  a  previous  computer 
run.  The  remainder  of  this  Appendix  consists  of  listings  of  the  actual 
programs.  These  programs  are  written  in  "COBOL  F"  language  and 
are  used  with  an  IBM-360-Model  50  computer. 
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Fig.  11-2  ETF  instrument  Book  Revision  Option 
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02  FILLER 

PICTURE  X  ( 4 1 . 

000  20 

02  FILLER 

PICTURE  9. 

00021 

**  304 

02  FILLER 

PICTURE  XI751. 

00022 

00221 

FO 

R-FILE 

RECORO  CONTAINS  BO  CHARACTERS 

CM000014 

00023 

002  22 

LABEL  RECOROS  ARE  STANOARO 

CM00001 4 

00024 

00223 

RECOROING  MODE  IS  F 

CMO 00014 

00025 

00224 

— 1  1  III  |  1  — 

00026 

00225 

OATA  RECORD  IS  B-REC. 

CM000014 

00027 

00301 

01 

B-REC. 

CMO  00  01  4 

0002  B 

**  209 

02  FILLER 

PICTURE  XI4I. 

0002  9 

2  092 

02  FILLER 

PICTURE  9. 

00030 

**  2092 

02  FILLER 

PICTURE  X 1751 • 

KriiaacmHiiitMa 

SfCt  ion. 

00032 

00323 

77  A-CNT 

PICTURE  S999  COMPUTATIONAL-3  VALUE  ZERO. 

CM000014 

00033 

00  40  3 

PROCEOURE  DIVISION. 

CMO  000 14 

00034 

00409 

START. 

CM00001 4 

00035  ** 
00036  ** 

412 

411 

OPEN  INPUT  CARD-IN.  OPEN  OUTPUT  B-FILE. 

CD-REAO.  READ  CARD-IN  AT  ENO  GO  TO  ENDIT. 

00037 

412 

WRITE  B-REC  RROM  REC-IN.  GO  TO  CO-READ. 

0003B 

413 

ENOIT.  CLOSE  CARD-IN.  CLOSE  R-CILE. 

00039 

"414 

STflP  RUN. 
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00001 

00002 

00003 

00004 

00005 

00006 

00007 

ooooa 

00009’ 
00010 
oooi  i 
00012 
00013 
00014 
00015 
00016 
00017 
00018 


001010 

001020 

001030 

_001040 

001050 

001060 

001070 

001080 

001090 

001110 

001140 

001170 

001180 

002150 


IDENTIFICATION  DIVISION. 
PROGRAM- 10.  •CM000145* • 
AUTHOR.  ROSE. 

ENVIRONMENT  DIVISION. 


002160 

002170 

oo4oio 

004020 


00019 

00020 

00021 

_ 0002  2 

00023 

00024 


00025 

00026 

00027 

JJ0028 

00029 

00030 

00031 

_00032 

00033 

00034 

00035 

00036 

00037 

00039 

00039 

00040 

.00041 

00042 

00043“ 

00044 


004030 
004040 
004050 
_  004060 
004070 
004080 
004090 
004100 
004110 
004120 
004130 
004131 
004140 
004141 
004150 
004160 
004170 
004180 
004181 
004182 
004183 
004184 
004210 
004220 
004230 
0230 1C 


CONFIGURATION  SECTION. 

SOURCE-COMPUTER.  IBM-360  H50.  _  _  '  _ 

OBJECT-CO'MPUTER.  IBM-360  H50. 

INPUT-OUTPUT  SECTION.  _  _ 

FILE-CONTROL. 

_ SELECT  _HOOK_  ASSIfiN  JHOOK1  UTILITY.  _ 

SELECT  LIST  "ASSIGN  'LIST*"  UTILITY. 

OATA  0 1 V I  S I  ON  •  _ _ _ _ _ 

FILE  SECTION. 

FD  LIST  RECORDING  F  _BLOCK  12__REC0RDS  RECORD  13?. 

LABEL  RECOROS  OMITTED  OATA"  RE  CORO  LIT. 

01  .LIT  _  PICTURE  XI132). 

FD  HOOK  RECORDING  F  BLOCK'- 1  RECOROS  RECORO  133 

_ .LABEL  RECORDS^.  STANOARO  .DATA  RECORD  HOK. 

01  HOK. 

PICTURE  X.  _  _ 

PICTURE 


02  FILLER 
02  HP A A 
02.  .FILLER 
02  HUOC 
02  FILLER 

'02  ..HROOUT  PICTURE  X ( 5 1  . 
_02_RHRD0UT  REOEFINES  HRDOUT. 
03  HRT1  PICTURE  X. 

HR 2  PICTURE  X. 

HR  3  PICTURE  X. 


XI 9 1  . 

PICTURE _ XI 58  1. 

PICTURE  X 1 51  • 
PICTURE  XI 25  I . 


02 


02 


03 

03 

03 

03 

_ P? 


PICTURE  99. 


PICTURE  999. 


HHR3  REOEFINES  HR3  PICTURE  9 
HR45  PICTURE  XX. 

RHR4J  _  REOEFJNES  HR45 
RRHROOUT  REOEFINES  RHROOUT. 

03  HR1 2  PICTURE_  XX. 

03  HR 3 45  PICTURE  XXX. 

03  R345  REOEFINES  HR345 

HROT  REOEFINES  HROOUT.'- 
03  HRDT1  PICTURE  X. 

03  HR023  PICTURE  9_9.' 

_ HRD45  PICTURE  XX. 

02  FILLER  PICTURE  XI 201. 

02  HITEM  PICTURE  XXXX. 

02  FILLER  PICTURE'  XI6). 
WORKING-STORAGE  SECTION. 


00045 

023020 

77 

J 

PICTJRE  999. 

00046 

023030 

77 

K 

PICTURE  999. 

00047 

023100 

77 

JECT 

PICTURE  99 

VALUE  50. 

00048 

**011010 

01 

SVTABLE 

• 

00049 

011020 

02  SVTA8L  OCCURS.  60. 

00050 

011050 

03 

SV3  PICTURE 

XI91  OCCURS 

00051 

01 

SVT3P3 

00052 

02  FILLER  PICTURE  X 

VALUE  SPACE. 

00053 

00054 


02 

02 


FILLER 

FILLER 


12. 


PICTURE  X(25>  VALUE  'NO  RANGE  PORT 
PICTURE  XI25I  VALUE  .*2  PORT  03 


01 

PORT 


PORT  0 
04  P 


CH000095 

CM000095 

CM000095 

CM000095 

CM000095 

CM000095 

CM000095 

CM000095 

CM000095 

CM000095 

CM000095 

CM00009S 

CM000095 

CM000095 

CM000095 

CM000095 

CM00009S 

CM000095 

CMOO0095 

CM00009S 

CM000095 

CM00009S 

CM000095 

CN00009S 

CM000095 

CM0000'95 

CH000095 

CM000095 
CM000095 
CM000095 
CM000095 
CN000095 
CM 00 009  5 
' CM000095 
CM000095 
CM000095 
CM000095 
C-S000095 
CM000095 
CM000095 
CM000095 
CM00C095 
CM000095 
CM000095 
CM000095 
CM000095 
CM000095 
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00055 

02 

FILLER 

PICTURE 

00056 

02 

FILLER 

PICTURE 

00057 

02 

FILLER 

PICTURE 

00058 

02 

FILLER 

PICTURE 

00059 

01  SVT0P1. 

00060 

02 

FILLER 

PICTURE 

00061 

02 

FILLER 

PICTURE 

00062 

02 

FILLER 

PICTURE 

00063 

-  02 

FILLER 

PICTURE 

00064 

02 

FILLER 

PICTURE 

00065 

01  SVT0P2. 

00C66 

02 

FILLER 

PICTURE 

00067 

02 

FILLER 

PICTURE 

00068 

02 

FILLER 

PICTURE 

00069 

01  SVLINE. 

00070 

02 

FILLER' 

PICTURE 

00071 

02 

SVNO 

PICTURE 

00072 

02 

filler 

PICTURE 

00073 

02 

P0RT2 

PICTURE 

00074 

02 

P0RT3 

PICTURE 

00075 

02 

PORT* 

PICTURE 

00076 

02 

P0RT5 

PICTURE 

00077 

02 

P0RT6 

PICTURE 

00078 

02 

PORT  7 

PICTURE 

00079 

02 

PORTS 

PICTURE 

00080 

02 

P0RT9 

PICTURE 

00081 

.  ..„ . . 02  P0RT10 

PICTURE 

00082 

02 

P0RT11 

PICTURE 

_flO_OB3' 

02 

P0RT12 

PI.CXURE 

00084 

02 

FILLER 

PICTURE 

00085 _ L030010_PROC£DURE  OIVISION._ 

00086  030021  OPEN  OUTPUT  LIST. 

00ft87_  030100  _  OPEN  INPUT  HOOK • 

00088  030130  PERFORM  SPACE-T8. 


XI 251  VALUE  • ORT  05  PORT  06  PORT  0*. 

X I  25 1  VALUE  *7  PORT  08  PORT  09  P'. 

X I  26 1  .VALUE  '_ORT  10  _ PORT  11  PORT  12* 

XI 51  VALUE  SPACE. 

X I  361  VALUF  SPACE.' 

XI 251  VALUE. 'SCANNER  VALVE  ASSIGNMENTS'. 
XI33I  VALUE  SPACE. 

XI 1 1 )  VALUE  'SHEET  OF*. 

XI 271  VALUE  SPACE. 

X  VALUE  SPACE. 

XI 121  VALUE  'SV  OUCER  '. 

XI 119)  VALUE  SPACE. 

X"  VALUE  SPACE. 

99.  _ 

XI 17|  VALUE  •  VAC  REF  '. 

XI10I.  _  _ 

XI 101. 

XJ  101.. _ _ _  _  _  _ 

mo  i* 

XI 101 . _  _ _  _ 

XI 101. 

XI10I..__  ..  .  . .  _  .  ..  .  . 

XllOI. 

X110L... _ _  _  . 

XllOI. 

xuo.l. . . . . 

XX  value  space. 


_00089 _  031010  RDrHK.  _____  _ 

00090  031020  READ  HOOK  AT  ENO  GO  TO  HK-END.' 

00091  .  031070  IF  HR1  =  •$!  ANO  HR2  *  '0„'_OR  _'.l*  OR  '2'  0R_'3'  OR  _0R 

00092  031080  '5'  OR  '6'  OR  '7'  OR  '8'  OR  *9'  GO  TO  SV-ROUTE. 

00093 _ 031L10_  GO  TO  RO-HK. _ _ _ _ 

00094  049010  SV-ROUTE. 


00095  049020  _IF  HR023  _>_60  DISPLAY  *4902'  HRDOUT  GO  TO  RO-HK, _ 

0009 6  049030  HOVE  HRD23  TO  J. 

_00097  049040  _  IF  RHR45  >_12  OISPLAY  *4904'  HROOUT  GO  TO  RO-HK._  _ 

00098  HOVE  RHR45  TO  K, 

00099 _ 049050  HOVE  HP  AR  TO.  SV3  I  J.  K] _  _  _ 

00100  049060  GO  TO  RO-HK. 

00101 _ 0  6201 0_HK- ENO.  _  _ _ _ _ _  _ 

00102  062020  CLOSE  HOOK. 

00103  069070  _ GO  TO  MR-SR.  _  _ _ _ 

00104  073010  SPACE-T8. 

00105  073090 _ PERFORM  SPC-SV  VARYING  K  FROM  l  8Y  l  UNTIL_K_>  12  AFTER 

00106  073100  “j  FROh'I  BY  "”l  UNTIL  "j  >60. 


00107  _ 074180_SPCrSV.  _  _ _ 

00108  074190  HOVE  SPA'CE  TO  SV3  IJ,  Kl. 

00109  **071010  MR-SR. _ _ _ _ 

00110  **067240  'HOVE  24  TO  JECT." 

00111  068010  MR-SX. 


..CM000095 

CH000095 

CM000095 

CM000095 

CH000095 

CH000095 

CH000095 

CM900095 

CM000095 

CM000095 

CH000095 

CM000095 

CH 000095 
CH000095 
CM000095 
CH000095 
CM000095 
CH000095 
CH000095 
CM000095 
CH000095 
CH000095 
CM000095 
CM000095 
CH000095 
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00112  PERFORM  HRSV1  VARYING  J  FROM  1  BY  1  UNTIL  J  >  60. 

00113  **066240  GO  TO  HR- ALL. 

00114  068060  HRS VI • 

00115  IF  J  =  1  PERFORM  SVTOP. 

00116  IF  J  =  21  PERFORM  SVTOP. 

00117  IF  J  =  41  PERFORM  SVTOP. 

00118  «0VE  J  TO  SVNO. 

00119  MOVE  SV3  (J,  21  TO  P0RT2. 

00120  MOVE  SV3  IJ,  31  TO  P0RT3. 

00121  MOVE  SV3  IJ,  41  TO  P0RT4. 

00122  MOVE  SV3  (J,  51  TO  PORTS. 

00123  MOVE  SV3  IJ,  6)  TO  P0RT6. 

00124  MOVE  SV3  !J«  7)  TO  P0RT7. 

00125  MOVE  SV3  (J.  8)  TO  PORTS. 

00126  MOVE  SV3  IJ.  91  TO  P0RT9.  _ 

00127  MOVE  SV3  IJ.  101  TO  P0RT10. 

00128  MOVE  SV3  (J,  111  TO  P0RT11. 

00129  MOVE  SV3  IJ,  121  TO  P0RT12. 

00130  WRITE  LIT  FROM  SVLINE  AFTER  2. 

00131  SVTOP. 

00132  WRITE  LIT  FROM  SVT0P1  AFTER  0. 

00133  WRITE  LIT  FROM  SVTOP  2  AFTER  3. 

00134  WRITE  LIT  FROM  SVT0P3  AFTER  1. 

00135  **067230  WR-ALL. 


00136  072040  CLOSE  LIST. 

0013T  072060  STOP  RUN. 


CM000095 

CM000095 


CM000095 

CM000095 

CH000095 
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00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008. 
00009 
00 0X0.  _ 
00011 
00012 
00013 
00014 
00015 
00016 
00017 


001010  IDENTIFICATION  DIVISION. 

.001020  PRDGRAM-IO.  •.CM000095'.  .  ... _ 

001030  AUTHOR.  ROSE. 

001040  ENVIRONMENT  DIVISION. 

001050  CONFIGURATION  SECTION. 

001.060 „SDURCE-CDMPUTER,  IBM-360  H50.  _ 

001070  OBJECT-COMPUTER.  IBM-360  H50. 

.00.10.80.  INPUT-DUTPUT  .SECTION.  ..  .  _ 

001090  FILE-CONTROL. 

_OOI_l.O.O- _ SELECT.  .BFILE.ASSIGN.  *BFILE.'  UTILITY.. _ 

001110  SELECT  HOOK  ASSIGN  'HOOK*  UTILITY. 

Op  11 20. . SELECT  CFILE  ASSIGN.  'CFILE*  UTILITY.  _... 

001130  SELECT  CARO  ASSIGN  'CARO*  UTILITY. 

0C1140  SELECT  LIST._  ASSIGN  .'LIST*  UTILITY.. 

001150  SELECT  DCARD  ASSIGN  1 DCARD 1  UTILITY. 

001170  OATA  DIVISION. 

001180 


UTILITY..  _ 


FILE  SECTION. 


CM000095 
_  CM.OOOQ95— 
CM000095 
.  .CM000095 
CM000095 
__.CM0D.0O95. . 

CM000095 
_.CM000095 
CH000095 
..  CM000095.- 
CM000095 
...CM000095. 

CM000095 
_.CM000095  . 

CM000095 
.  .CM000095 
CM000095 


00019 

002010 

FD 

bfile 

RECORD  CONTAINS  80  CHARACTERS 

_  CM000095 

00019 

002020 

LABEL  RECORDS  ARE  STANDARD 

CM000095 

00020 

002030 

RFCORIl  I  NT.  MftDF  IS  F 

_ CM000095 

00021 

002040 

BLOCK  CONTAINS  45  RECORDS 

CM000095 

00022 

002050 

DATA  RECDRD 

IS  BFIL.  CM000095 

00023 

002060 

01 

bfil. 

CM000095 

0002  4'. 

.002070 

02 

01 

PICTURE 

XI5I.  ._  .. 

_ CH000Q95 

0002  5 

002080 

02 

B3 . 

CM000095 

00026 

002C90 

03 

B3 A  PICTURE 

XX.  ‘  _  . 

.  CM000095 

00027 

0021 00 

03 

B3B  PICTURE 

XXX. 

CM000095 

00028 

OC2110 

02 

B4 

PICTURE 

X I  24  I  .  _ _ _ 

.  CM000095 

00029 

002130 

02 

B5 

PICTURE 

X  ( 41  . 

CM000095 

00030 

002140 

02 

FILLER  PICTURE 

X 1 47  1  • 

_ CM000095. 

00031 

002150 

FD 

LIST 

RECORDING  F 

BLDCK  12  RECDRDS  RECDRD  132 

00032 

002160 

LABEL  RECORDS  DMITTED  DATA  RECORD  LIT. 

CM000095 

0003  3 

C0217P 

01 

LIT 

PICTURE  K ( 1321. 

CM000095 

00G34 

303010 

ro 

CFILE 

RFCHRD  CONTAINS  80  CHARACTERS 

_ CM000095 

00035 

003020 

LABEL  RECURDS  ARE  STANDARD 

CM000095 

00036 

Cn3030 

RECORDING  MDDE  IS  F  . 

CH00.0095 

00037 

OC304C 

BLDCK  CONTAINS  45  RECORDS 

CM000095 

00038 

OC3050 

DATA  RECORD 

IS  CFIL. 

CM000095 

00C39 

003060 

01 

CFll 

. . 

CH000095 

0004  0 

0030  70 

02 

Cl 

PICTURE 

X(4)  . 

CM000095 

0C041 

OC  33  80 

02 

cz 

PICTURE 

9. 

CM000095 

00C42 

033330 

02 

33 

PICTURE 

XI  71 .  . 

CM000095 

00043 

OC  3 1 30 

02 

C4 

PICTURE 

Kim. 

CH000095 

00044 

C33UC 

02 

C5 

PICTURE- 

XI  9 1  . 

CH030095 

00045 

00  31 2  C 

02 

36 

PICTURE 

X  C  9  1  . 

CM0C0095 

00C45 

30  3133 

02 

C  7 

PICTURE 

X I  7  J  . 

CM000095 

00047 

00  3140 

02 

ca 

PICTURE 

X  (41  • 

CH000095 

00C48 

00  3150 

02 

C9 

PICTURE 

X  . 

CM000095 

CO  04  9 

003160 

C  2 

CIO 

PICTURE 

X  (  9 1  . 

CH000095 

00050 

CC  31 73 

02 

Cll 

PICTURE 

X  (  9 1  . 

00051 

OC  31 80 

02 

cub  picture 

XXX. 

CM000095 

00C52 

0C3190 

02 

C12 

PICTURE 

X  (  6)  • 

CM000095 

G0C5  3 

QC431C 

FO 

HOOK 

RECORDING  F 

BLOCK  1  RECORDS  RECDRO  133 

CH000095 

00054 

004^2  0 

LABEL  RECORDS  STANOARD  DATA  RECORD  HDK . 

CH000095 
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00055  ..004030..01.  HOK. . . 

00056  004040  02  FILLER  PICTURE  X. 

0005J _ DQ 40.50 _ .02..  HPAR.  PICTURE..  ,X19>  .. _ 

00058  004060  02  FILLER  PICTURE  XI 58). 

.00059 _ 00407.0  02 _ HUDC  ...  .PICTURE  X(5)..  _.... 

00060  004080  02  FILLER  PICTURE  X<25). 

.  00061  004090  02  HROOUT _ P ICTURE  _X L5>  . _ 

00062  004100  02  RHROOUT  REDEFINES  HROOUT. 

_00063„  JML4L10L _ 03  _.HR  1... .  —PICTURE. .  .X  . _ 

00064  004120  03  HR 2  PICTURE  X. 


CM000095 

CM000095 

CM000095 

CM00OO95 

CM000095 

CM000095 

CH000095 

CM000095 

.CN000095 

CN000095 


.00065- 

00066 

30062. 

00068 


_ 00413.0 . 

004131 

—00414.0. 


_03 _ HR  3 _ P.Ij:iUR£_.X.t . . 

03  HHR3  REOEFINES  HR3  PICTURE  9. 


004141 


00070  004160 


_ 03 

03 

RR) 

03 


.HR  45 _ PICTURE, XXj _ 

RHR45  REOEFINES  HR45 
5..RHRQ0UI. 
HR12  PICTURE  XX. 


PICTURE  99. 


-CN000095. 

.CN000D.95. 

CM0000.95 

.CM000095 

CH000095 


0007  L. 

QL0.41.7Jl_ 

03  HR345  PICTURE  XXX. 

..  .  CN000095. 

00072 

004180 

03  R345  REOEFINES  HR345  PICTURE  999. 

CM000095 

00073 

-0.04181. 

Q2 

HRDT  REOEFINES  HROOUT. 

._  .CM000095 

00O74 

004182 

03  HR0T1  PICTURE  X. 

CM000095 

00075 

004183 

03  HRD23  PICTURE  99. 

CM000095 

00076 

0041 B4 

03  HR045  PICTURE  XX. 

CM000095 

0007.7. 

...004210 

02 

FILLER  PICTURE  XI20). . .  ..  . . .  . 

CM000095 

00078 

004220 

02 

HITEM  PICTURE  XXXX. 

CM000095 

.0.0.079_ 

_ 00423_p_ 

02_ 

FILLER  PICTURE  XI6). 

CM000095 

0008  0 

005010 

FD 

CARO  RECOROING  F  BLOCK  10  RECORDS  RECORD  80 

CMO0Q09 

0008.1. 

005020 

LABEL  RECOROS  OMITTEO  DATA  RECORO  CAR. 

CM000095 

00082 

005030 

01 

CAR 

• 

CM000095 

00083 

005040 

02 

FILLER  PICTURE  X(80).  ....... 

CM000095 

00084 

005060 

FD 

OCARD  RECOROING  F  BLOCK  1  RECOROS  RECORD  41 

CM000095 

00085 

005070 

LABEL  RECOROS  STANOARO  OATA  RECORO  OCAR. 

CM000095 

00086 

005080 

01 

OCAR. 

CMO0009 5 

00087 

005090 

02 

0R1  PICTURE  XI9).  ... 

CN000095 

00088 

005100 

02 

FILLER  PICTURE  X. 

CM000095 

0Q089 

005110 

02 

DR 2  PICTURE  XX. 

C MOO 005 5 

00090 

005111 

02 

ROR  REOEFINES  0R2. 

CM000095 

00091 

005112 

03  R0R1  PICTURE  X. 

CM000095 

00092 

005113 

03  ROR 2  PICTURE  X. 

CM0O0095 

,000,9J1 -005JL20.. ,02_FJLLER  -PICTURE  X. .  . . . £M0_0009§ 

00094  005130  02  0R3  PICTURE  '  XX.  ‘  CHQ00095 


00095  005131  02  R0R3  REOEFINES  0R3, _ QM000.095 


00096 

005132 

03  DR 3 A  PICTURE  X. 

CM000095 

■'HUM 

■  i  mi  wm 

1  III  III! 

00098 

005140 

02 

FILLER  PICTURE  X. 

CM000095 

0.009.9 _ 

.00.5150 _ 

02  . 

DR  4  PICTURE  XX. 

_C  MO 00.025. 

00100 

005151 

02 

ROR 4  REDEFINES  0R4. 

CM000095 

.0.0.10.1 _ 

005152 

03  0R4A  PICTURE  X. 

CM000095 

00102 

005153 

03  DR4B  PICTURE  X. 

CM000095 

00103  . 

005160 

02 

FILLER  PICTURE  X.  . 

CN000095 

00104 

005170 

02 

OR 5  PICTURE  XX. 

CM000095 

00105 

005171 

02 

RDR5  REOEFINES  DR 5. 

CH000095 

00106 

005172 

03  DR5A  PICTURE  X. 

CM000095 

00107 

005173 

03  0R5B  PICTURE  X. 

CH00009S 

00108 

005180 

02 

FILLER  PICTURE  X. 

CM000095 

.0.010.9  005190 

02 

DRT  PICTURE  XXX. 

CM000095 

00110 

005191 

02 

RORT  REOEFINES  ORT. 

CM000095 

ooui 

.005192. 

_  _ _ 

0,3  .  R0R7* _ PICTURE 

-  £*000.095 
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L_  RDR7B _ PICIU&E  SS* 

00113  005194  02  RRDR7  REDEFINES  0R7. 

00L1& _ 005195 _ 03  RR7A  PICTURE  X. 


_ CHOQOD95. 

C NO 0009 5 
— CH00009S 
CH000095 
_CMQ00095_ 
CH000095 

_ 0)000095. 

CN000095 

_£MQSM9S. 

CH000095 

,_JCN00OO95 

CN000095 

_ .CH000095 

CH000095 

_£«pqdq9S- 


00115  005196 
00116  005197 
00117  005200 

00119  005211 
_ 005212 


00121  005213 

_ttftl22 _ QQS22fl_ 

00123  005230 


03  RR7B  PICTURE  X. 

_ ERIC. _ PJXJJJRE.  _X. _ 

02  FILLER  PICTURE  X. 

_Q2_  DR.8 PICTURE..  JIXXj _ 

02  RDR6  REDEFINES  0R8. 

03  R0R8A  PICTURE  X. 


00125 

_S0126_ 


023020  77 
023030  77 


03  RDR8B  PICTURE  XX. 

.  J*ICIURE__.X(  LOJ... _ 

02  0R6  /PICTURE  XX. 

S-ST0.R4GElSeCXI.QN.. _ 

J  PICTURE  999. 

JS _ PICTURE  999. _ 


00127 

_Q0.12fl_ 


023040  77 
023050  77 


SHI 

JMSM1. 


PICTURE 

PICTURE 


VALUE  0. 
-_yALUE_0JL- 


00129 

QO130- 


023060  77 
023070  77 


HSW2 

HSW3 


PICTURE 

PlCfURE 


VALUE  0. 

■■VALUE-O.. 


00131  023080  77  NEG-SH  PICTURE  9  VALUE  0. 

-00132 . .QZ3.0a.tt.  .77.....JJ _ P.ICJURE _ .9.99 _ XALUE_0*_ 

00133  023100  77  JECT  PICTURE  99  VALUE  50. 

_QQ.UA _ 023110-77  KK  PICTURE  999  VALUE  0. 


CH000095 

_.CNQ00095_ 

CH000095 

_CH000095. 

CN000095 
_CHOO 0.095. . 

CH000095 

_CMQfl.QD9.5_ 


00135 

....QQUQ- 

00137 


77  JKT  PICTURE  X  /VALUE  SPACE. 


**007010  01  SCTA8L. 


CH000095 


00139 

007030 

03  SCI 

PICTURE 

XXX. 

CH000095 

00140 

007040 

03  SC2 

P1CXURE 

XI 9  >  . 

CM000095 

00141 

007050 

03  SC  3 

PICTURE 

XXX. 

CN000095 

00 142 _ 007060 

03  SC4 

PICTURE _ XI 9 1 . . . 

_ CN000095 

00143 

007070 

03  SC  5 

PICTURE 

XI 9 1 . 

CN000095 

.  00.154„ 

OD 7-080.  • 

_  03  SC  6. 

PICTURE. 

..XI  9JL» 

.CM00.0095. 

00145 

007090 

03  SC  7 

PICTURE 

XI  91  a 

CN000095 

00146 _ Q.O7J.0O 

.  .03.  SC8 _ 

...PICTURE 

XI 91.. _ 

_  CN000095 

00147 

007110 

03  SC9 

PICTURE 

XI 101. 

CN000095 

00l48._ 

...007120 

03  SC10 

...P.ICTUaE_XI  141. 

_ CH000095 

00149 

0080 1C  01 

MTTABLE. 

CH000095 

00150_ 

_Q08.020 _ 

02..  NT.A&-  .OCCUR S_6, _ 

_ CM000095 

00151 

00803C 

03  NT  1 

PICTURE 

X 

OCCURS 

14. 

CN000095 

00152 

.  JO  0.80  40  .  . 

03.  MT2 

PICTURE 

XX 

OCCURS 

14^  _  . 

CH000095 

00153 

008050 

03  HT3  , 

PICTURE 

XI  9 ) 

OCCURS 

14. 

CH000095 

.  00154. 

008060  ..  . 

03  NT  4.. 

..  PICTURE 

.  XXX 

OCCURS 

14.  _  _  . 

CH000095 

00155 

008070 

03  NT  5 

PICTURE 

X  1 9  1 

OCCURS 

14. 

CH000095 

_Q015j6_ 

_ 0080.80 _ 

_ 03 _ MT6 

_ PICTURE  XI9)  OCCURS  14. 

CH000095 

00157 

008090 

03  MT7 

PICTURE 

X I  9) 

OCCURS 

14. 

CH000095 

00158- 

.  jooaiQO _ 

03  NT 8  ... 

..  PICTURE 

XI91 .  .. 

OCCURS 

14. _  _  _ 

_  CH000095 

00159 

008110 

03  MT9 

PICTURE 

X 1 9 1 

OCCURS 

14. 

CH000095 

_  00 160 _ 

_ 00 8120 _ 

_  03.  ...NT  10  _ 

....PICTURE 

..  XLLQ1 _ 

OCCURS. 

14»- _ 

_  CH000095 

00161 

008130 

03  NTH 

PICTURE 

X 1 1 4 ) 

OCCURS 

14. 

CN000095 

00  lh2 

009010  01 

□STABLE^ _ 

..  CM000095 

00163 

009020 

02  OSTBL  OCCURS  6. 

- 

CN000095 

-.0016.4— 

00903  Q _ 

03  DS1 

PICTURE 

X 

.OCCURS . 

36. 

CN00009S. 

00165 

009040 

03  0S2 

PICTURE 

XX 

OCCURS 

36. 

CH000095 

-  QQ166 

00.9.05.0... 

H3 ..  0S3 

.  PICTURE 

X I  91  OCCURS 

36. 

CN000095 

00167 

009060 

03  0S4 

PICTURE 

XXX 

OCCURS 

36. 

CH000095 

00168 

009070 

03  0S5 

PICTURE 

XI9I 

OCCURS. 

36. 

CN000095 
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00169 

CO 90 80 

03 

0S6 

PICTURE 

XI9) 

OCCURS 

36. _ _ _ 

CM000095 

00170 

009090 

03 

0S7 

PICTURE 

XI9I 

OCCURS 

36. 

CM000095 

00171 

009100 

03 

osa 

PICTURE 

XI  91 

OCCURS 

3.6 j _ 

CM000095 

00172 

009110 

03 

0S9 

PICTURE 

X  1  9 1 

OCCURS 

36. 

CM000095 

00173 

009120 

03 

OSIO 

PICTURE 

XI10) 

OCCURS 

.  36., _ 

CM000095 

00174 

009130 

03 

OSH 

PICTURE 

X  1 14) 

OCCURS 

36. 

CM000095 

00175 

010010  01 

HCTA8LE 

a 

CM000095 

00176 

010020 

02 

MCT8L  OCCURS  3. 

CM000095 

00177 

010030 

03 

MCI 

PICTURE 

XXX 

.  OCCURS. 

ISO. _ 

CH090095 

00173 

010040 

03 

MC2 

PICTURE 

X 1 9) 

OCCURS 

100. 

CH000095 

00179 

010050 

03 

MC3 

PICTURE 

.  XXX  . 

OCCURS 

--L.GO, _ 

_ CM060095- 

00180 

010060 

03 

MC4 

PICTURE 

XX 

OCCURS 

100. 

CM000095 

00181 

010070 

03 

MC5 

PICTURE 

XI 91.. 

OCCURS. 

100, 

CM000095 

00182 

010080 

03 

MC6 

PICTURE 

XX 

OCCURS 

100. 

CM000095 

00183 

01009Q. 

03 

MC7 

PICTURE 

.X  1.9 1_ 

.  OCCUR.S.. 

1G&, _ 

CM000095 

00184 

010100 

03 

MCB 

PICTURE 

XX 

OCCURS 

100. 

CM000095 

00185 

010110 

03 

MC9 

PICTURE 

X 1  9) 

.  OCCURS. 

..IOQj 

CN000095 

00186 

010120 

03 

MC10 

PICTURE 

XX 

OCCURS 

too. 

CM000095 

.00187 

010130. 

03 

MC11 

PICTURE 

XI9I 

OCCURS 

100. 

CM000095 

00188 

010140 

03 

MC  12 

PICTURE 

XX 

OCCURS 

100. 

CN000095 

00189 

010150 

03 

MC  13 

PICTURE 

XI9I 

OCC  UR  S 

100. 

CM000095 

00190 

010160 

03 

MCI  4 

PICTURE 

.  XI 101 

OCCURS 

100. 

CM000095 

00191 

010170 

03 

MCI  5 

PICTURE 

.  X 1 14) 

OCCURS 

100. 

CM000095 

00192 

010130 

03 

MC  16 

PICTURE 

XXX 

OCCURS 

100. 

CM000095 

00193 

01108  0  01 

ODTABLE 

• 

00194 

011090 

02 

DIOOLE  OCCURS  1. 

00195 

011100 

03 

DO  1 

PICTURE 

X 

OCCURS 

100. 

00196 

OllllO 

03 

002 

PICTURE 

XX 

OCCURS 

too. 

00197 

011120 

03 

□03 

PICTURE 

XI  9) 

OCCURS 

100. 

00198 

011130 

03 

004 

PICTURE 

XXX 

OCCURS 

100. 

00199 

011140 

03 

005 

PICTURE 

XX 

OCCURS 

100. 

00200 

011150  - 

03 

006 

PICTURE 

X 1  9) 

OCCURS 

100. 

00201 

011160 

03 

007 

PICTURE 

XX 

OCCURS 

100. 

00202 

011170 

03 

008 

PICTURE 

XI9) 

OCCURS 

100. 

00203 

011180 

03 

009 

PICTURE 

XX 

OCCURS 

.  100.. _ 

00204 

011190 

03 

0010 

PICTURE 

X 1  9) 

OCCURS 

100. 

00205 

0112CI  01 

D0TAB2. 

00206 

011202 

02 

OAOOLE  OCCURS  1. 

, 

00207 

**011200 

03 

0011 

PICTURE 

XX 

OCCURS 

100. 

* 

00208 

011210 

03 

0012 

PICTURE 

XI 9) 

OCCURS' 

100. 

00209 

011220 

03 

0013 

PICTURE 

XX 

OCCURS 

100. 

00210 

01 1230 

03 

0014 

PICTURE 

X  1 9 ) 

OCCURS 

100. 

002.1J... 

01  1240 

.._9.3_ 

0DJ5 

PICTURE 

x  1  10) 

OCCURS 

100. 

00212 

.  01 1250 

03 

0016 

PICTURE 

XI  14) 

OCCURS 

100. 

00213 

011260 

03 

00  SN.. 

. .  .PICTURE.. 

..  X. _ 

.  OCCURS. 

100. 

00214 

012010  01 

SRTABLE 

• 

CM000095 

00215 

012020 

02 

SR7A8  OCCURS  4. 

_CM00Q095 

00216 

012030 

03 

SRI 

PICTURE 

X 

OCCURS 

e. 

CM000095 

00217 

01204C 

03 

SR  2 

PICTURE 

xx 

OCCURS 

8.  _ _ 

_ .CMQ0009.5. 

00218 

012050 

03 

SR  3 

PICTURE 

X 1  9 ) 

OCCURS 

e. 

CM000095 

00219 

912060. 

.  03 

SR4 

.  PICTURE. 

XXX 

,..gccuu.s._t«_ 

_ CBttDJlflSJL 

00220 

012070 

03 

SR5 

PICTURE 

XI9) 

OCCURS 

8. 

CM000095 

00221 

.  012080  . 

03 

SR6 . . . 

.  PICT.URE 

XI  9) 

OCCURS 

a. 

CM000095 

00222 

012090 

03 

SR7 

PICTURE 

XI  9)  ■ 

OCCURS 

8. 

CM000095 

00223 

012100 

03 

SR8  . 

..PICTURE. 

_X.1 9 )  . 

..OCCURS 

A,. 

_ CHM0O.95. 

00224 

012110 

03 

SR9 

PICTURE 

X 1  9) 

OCCURS 

8. 

CM000095 

00225 

012120 

03 

SR  10 

PICTURE 

XI10) 

OCCURS 

8.. 

.CNftP.0fl9> 
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.00226 

00227 

00220 

-012130 _ ..03  SR  11  ..  PICTURE  X  1.1.4 1  ....0CC.URS_fl* _ 

012140  03  SRSN  PICTURE  X  OCCURS  8. 

013010  01  SCLIST,  .  _  - 

£*000055 

CM000095 

CK000095 

00229 

013020 

02 

FILLER 

PICTURE 

X 1 5  ) 

VALUE 

SPACE. 

CM00009  5 

00230  . 

..013030 

.02 

LSC 1 

.  PICTURE 

.  XXX, 

xaooQoas. 

00231 

013040 

02 

FILLER 

PICTURE 

XXXXXX  VALUE 

SPACE. 

00232 

013050 

02 

LSC2 

PICTURE 

XI 9 1  • 

CM000095 

00233 

013060 

02 

FILLER 

PICTURE 

xxxx 

VALUE 

SPACE. 

00234 

.013070 _ 

..9.2.. 

1,SC3.  _ 

PICTURE 

XXX. 

.JLHflOQfi95.. 

00235 

013080 

02 

FILLER 

PICTURE 

xxxx 

VALUE 

SPACE. 

CM000095 

00236 

01309.Q. 

02 

LSC  4  . 

.PICTURE 

X<9>., 

CH000095 

00237 

013100 

02 

FILLER 

PICTURE 

xxxx 

VALUE 

SPACE. 

CM000095 

00239 

013110 _ 

02. 

LSC5 

..PICTURE 

.  .XI 9  I • 

CM000095 

00239 

013120 

02 

FILLER 

PICTURE 

XXXX 

VALUE 

SPACE. 

CM000095 

00240 

0.13130.....  . 

.02 

CSC6  . 

PICTURE  . 

..  xi.91.. 

_  .  ...Cn.9L00.ft95. 

0024  1 

013140 

02 

FILLER 

PICTURE 

XXXX 

VALUE 

SPACE. 

CM000095 

00242. 

.01.3150.... 

02 

L  SC  7.  .. 

.PICTURE. 

_.XI9.)., 

CM0000.9.5 

00243 

013160 

02 

FILLER 

PICTURE 

XXXX 

VALUE 

SPACE. 

CM000095 

00244  _ 

013170 

02 

LSCS 

PICTURE 

X(  9 1  . 

CM000095 

00245 

013100 

02 

FILLER 

PICTURE 

XXXX 

VALUE 

SPACE. 

CM000095 

00246 

013150 

02  . 

LSC  9 

PICTURE 

.  M10I 

•.  _  .  . 

.  .  90.095. 

00247 

013200 

02 

FILLER 

PICTURE 

xxxx 

VALUE 

SPACE. 

00240. 

01 32 1C 

02 

LSC  10 

PICTURE 

X(14) 

• _ 

cno 00095. 

00249 

013220 

02 

FILLER 

PICTURE 

X  (  5 1 

VALUE 

SPACE. 

00250 

014010  01 

mtlist. 

.  £M00009.5. 

00251 

014020 

02 

FILLER 

PICTURE 

XI 5 1 

VALUE 

SPACE. 

CM000095 

00252. 

.014030  . 

02  . 

LMTl 

PICTURE 

X. 

CMD00095. 

00253 

014040 

02 

filler 

PICTURE 

XX 

VALUE 

SPACE. 

CM000095 

00254 

014050 

02 

LMT2 

PICTURE 

99. 

00255 

014060 

02 

FILLER 

PICTURE 

XXXX 

VALUF 

SPACE. 

CM000095 

00256 

014070 

02 

LMT  3 

PICTURE 

XI  9  1  • 

CM000095 

00257 

014030 

02 

FILLER 

PICTURE 

XXXX 

VALUE 

SPACE. 

CM000095 

00258 

014090 

02 

LMT4 

PICTURE 

XXX. 

CM000095. 

0025  9 

014100 

02 

FILLER 

PICTURE 

XXXX 

VALUE 

SPACE. 

CM000095 

d026Q 

0141 IC 

02 

LHT5 

PICTURE 

X(9>. 

_ _  CM00C095 

00261 

01412C 

C2 

fillfr 

PICTURE 

xxxx 

VALUE 

SPACE. 

CMOOO095 

00262 

014130 

02 

LMT  6 

PICTURE 

XI9). 

...  CM000095 

00263 

014140 

02 

FILLER 

PICTURF 

XXXX 

VALUE 

SPACE. 

CM000095 

00264 

014150 

0?' 

LMT  7 

PICTURE 

X 1  9  1  • 

CM000095 

00265 

014160 

02 

FILLER 

PICTURE 

XXXX 

VALUE 

SPACE. 

CM00009  5 

00266 

01417C 

02 

LMT  8 

PICTURE 

XI  9  I  • 

._  .  CM000095 

00267 

31418C 

02 

FILLER 

PICTURE 

XXXX 

VALUE 

SPACE. 

CM000095 

00269 

Q14L90 

02 

L.MT9 

PICTURE 

XI  91  . 

_  .  CM000095 

00269 

014200 

02 

FILLFR 

PICTURE 

XXXX 

VALUE 

SPACE. 

CM000095 

00270 

014210 

02 

LMT  1 0 

PICTURE 

XI  101 

_  .CMP0.0095 

00271 

014220 

02 

FILLER 

PICTURE 

xxxx 

VALUE 

SPACE. 

CM000095 

0027? 

014230 

02 

LMT  1 1 

PICTURE 

XI 14) 

• 

_ CM000095  _ 

00273 

Cl  42 4  0 

02 

FILLER 

PICTURE 

X I  5  ) 

VALUE  ! 

SPACE. 

00274 

01501C  01 

9SL1ST. 

_  CM000095_ 

00275 

0I5O2C 

G2 

TILLER 

PICTURE 

XI  5) 

VALUE  : 

SPACE. 

CM000095 

00274 

015030 

0? 

1  OS1 

PICTURE 

X. 

.  .  _ _ CH00009S. 

00277 

Cl  504  0 

0  2 

F I LLFR 

PICTURE 

XX 

VALUE  : 

SPACE. 

CM000095 

00273 

C1635C 

02 

LJS2 

PICTURE 

99. 

CM000095. 

00279 

015060 

02 

►  ULFR 

PICTURE 

XXXX 

VALUE  : 

SPACE. 

CM000095 

0024'' 

0150  7'*' 

C2 

LOS  3 

PICTURE 

XI  9)  . 

.  .  CM000095 

00281 

CI508C 

C2 

FILLER 

PICTURE 

XXXX 

VALUE  : 

SPACE. 

CH000095 

00282 

0150.90 

C2 

L0S4 

PICTURE 

XXX. 

CM000095 
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.002.83 _ 015100  _ 02 _ EJUEB _ PICTURE. _ XX*x  .VALUE  SPACE. _ CHPQ0095 

00284  015110  02  L0S5  PICTURE  XI9). 


00285  015120 

00286  015130 

_ 0i5l40 _ 

00288  015150 


_ 42 _ fj  LJLER _ £.I.C  T.U.R  E _ x  jyt  X  _.VALUE_i£A.C  E*_ 

02  L0S6  PICTURE  XI9). 

_l<?2 _ Ei-LLEB. _ PICTURE  ...  XXXX._.VALU£  SPACE*.. 

02  LOST  PICTURE  XI9I. 

XXX.X _ VALUE  .SPACE  * _ 


_ CHQQQS95. 

CN000095 

..CB000095. 

CM000095 


00290 

015170 

02 

LOSS 

PICTURE 

XI 9  ) . 

CH000095 

_Q0Z91_  015180 _ 

Q2_ 

FILLER  —PICTURE 

XXXX  VALUE  SPACE. 

CM000095 

00292 

015190 

02 

L0S9 

PICTURE 

XI 9  i . 

CM000095 

00293. 

015200 

02 

FILLER 

PICTURE  XXXX  VALUE  SPACE. 

CH000095 

00294 

015210 

02 

LOSIO 

PICTURE 

XIIOI.' 

CH000095 

00295 

015220 

_ 02 

FILLER 

.  PICTURE. 

XXXX  VALUE  SPACE. 

CM000095 

00296 

015230 

02 

LOS  11 

PICTURE 

XI14)  . 

CM000095 

-00291— 

015240 _ 

_ Q2_ 

FILLER 

PICTURE 

XI  51  VAJ  IIP  SPACF. 

' 

00298  016010  01 


00300 

-2C.3.0.1.- 

00302 

_00.30.3_ 


016030 

.JlftflAfl- 

016050 

016060 


HCLIST. 

12 _ E1LLEB _ PICTURE. ..  .XC5.I _ YALJ1E .S£AC£^. 

02  LHC  1  PICTURE  999. 

.02 _ F.LLLER_  .PICTURE _ XXXX.  ...VALUE  SPACE*. 

02  LMC2  PICTURE  XI9). 

02  FILLER  PICTURE _ XX. _ VALUE  SPACE. 


CH000095 

_ CHQ00095 

CN000095 

_ ..CH0Q0095 

CH000095 
_ CH000095 


00304  016070  02  LHC3  PICTURE 

00305  016080  _  02_  FILLER  PICTURE 

00306  ol 6090  02  LMC4  PICTURE 

00307  016100 _ 02_ FILLER  PICTURE 

00308  016110  02  LHC5  PICTURE 


VALUE.  SPACE.. 


XXX. 

XX  . 

XX. 

XX  VALUE  SPACE* 
XI9I. 


CN000095 
CH000095. 
CN000095 
.  CM000095 
CN000095 


00309 

.0161.2.0 _ 

02. 

_FULER__ 

PICTURE. 

XX 

—  VALUE  SPACE., _  .  . 

CH000095 

00310 

016130 

02 

LMC6 

PICTURE 

XX. 

CM000095 

_0 03 1 1  . 

.  0.1614O _ 

02 

..filler 

PICTURE 

XX 

VALUE  SPACE. 

CH000095 

00312 

016150 

02 

LNC7 

PICTURE 

XI9I. 

CH000095  . 

00313 

016160 

02 

FILLER 

PICTURE 

XX 

VALUE  SPACE. 

CH000095 

00314 

016170 

02 

LHC  8 

PICTURE 

XX. 

CH000095 

003.15 

016180 

02 

filler 

PICTURE 

XX 

VALUE  SPACE. _  _ 

CH000095 

00316 

016190 

02 

LHC9 

PICTURE 

XI 9)  • 

CH000095 

00317 

016200 

0_2_ 

FILLER 

PICTURE 

XX 

.  ..VALUF.  SPACE. _ .....  „  . 

CH000095 

00318 

016210 

02 

LHC  10 

PICTURE 

XX. 

CH000095 

00319 

016220 

02. 

-FILLER 

PICTURE 

XX 

VALUE  SPACE. 

CHO 00095 

00320 

016230 

02 

LHC  11 

PICTURE 

XI 9 )  . 

CH000095 

00321 

016240 

02 

FILLER 

PICT.URE 

XX  .. 

VALUE  SPACE.  . . .  . . . 

CH000095 

00322 

016250 

02 

LHC  1 2 

PICTURE 

XX. 

CH000095 

00323 

017010 

02 

FILLER 

PICTURE 

XX 

VALUE  SPACE. 

CH000095 

00324 

017020 

02 

LHC  13 

PICTURE 

XI 9  )  . 

CH000095 

00325  017030 

12. 

FILLER  . 

PICTURE. 

_ XX 

VALUE  SPACE. 

CN000095 

00326 

017040 

02 

LHC  14 

PICTURE 

XIIOI 

• 

CH000095 

0032 1 . 

_  .017050  _ 

02 

.  FILLER 

PICTURE 

XX 

.  VALUE. SPACE.  _  ..  _ _  _ _ 

CHOOQ095  . 

00328 

017060 

02 

LHC15 

PICTURE 

XI  14) 

CH000095 

00329 

017070 

02 

FILLFR 

PICTURE 

XX 

VALUE  SPACE. 

CHOOOC95 

00330 

017080 

02 

LHC  16 

PICTURE 

X 

VALUE  SPACE. 

CM00009  5 

00331 

.  .0.19010  01. 

DDL  1ST. 

CH000095 

00332 

019020 

02 

FILLER 

PICTURE 

XI  4) 

VALUE  SPACE. 

CH000095 

00333 

01 9030 

02 

LDD 1 

PICTURE 

z. 

00334 

019040 

02 

FILLER 

PICTURE 

XX 

VALUE  SPACE. 

00335 

019050 

02 

L002 

P1CTURF 

Z99. 

00336 

019060 

02 

FILLER 

PICTURE 

XX 

VALUE  SPACE. 

CHO 00095 

-00.337. 

_  019070 

02 

L0D3 

PICTURE 

.  XI9) . 

CM000095 

00338 

019080 

02 

FILLFR 

PICTURE 

XX 

VALUE  SPACE. 

CM000095 

00339 

019090 

02 

L0D4 

PICTURE 

XXX. 

CH000095 
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.00  340  01910C 

00341  019110 

00342  0191 

00343  019120 

00344  ‘  019130 
00345  019140 

■00346 _ 0191.50 


00347 

00348 


019151 

019160 


00349  019170 

00_350_  019180 

00351  019190 

_O.03.52 _ 0191 

00353  019200 

-90254 _ Q1_9JL1Q_ 

00355  019220 


00357  019231 


_0 2..  FILLER.  _P I CJUR.E  ..XX. . VAL.UE__S.PA.C.E,._ 

02  LOO  5  PICTURE  XX. 

02  —FILLER  PICTURE  X  VALUE  SPACE.  _ 

02  F1LLERI  PICTURE  XX  VALUE  SPACE. 

02_  LCD6 _  PICTURE-  X{9). _ _ _ 

02  FILLER  PICTURE  X  VALUE  SPACE. 

.02  L0D7  .PICTURE.  XX.  _ _ 

02  FILLER  PICTURE  X  VALUE  SPACE. 

02  FILLER2  PICTURE  XX _ VALUE  SPACE. 


CM0.00095__ 

CH000095 

”CH0'00095~ 

..CM0.00095 


02  L008  PICTURE  XI9). 

..02 _ F IL L£R _ PICTURE.  X.  .VALUE  SPACE,..  _ 

02  L009  PICTURE  XX. 

_02  .  JLILLER _ PICJ.URE_,X _ VALUE.  SPACE, _ - _ 

02  FILLER3  PICTURE  XX  VALUE  SPACE. 

_Ql_iePJLflU_.  PICTURE _ g  (5.L. _ : _ 

02  FILLER  PICTURE  X  VALUE  SPACE. 

_Q2 _ LOQJLl _ P.ICTU&E _ XX.. _ __ _ 

02  FILLER  PICTURE  X  VALUE  SPACE. 

_ VALUE-SPACE.,- . 


_ CM000095 

CH000095 

CH000095 

CH000095 


00359  019250  02  L0012  PICTURE  XI9I. 

..003.6.0 020010 _ 02  . F.1LLER P.ICTURE_X_ .VALUED PACE. 


CH000095 

.M0.0009.5_ 

.CH000.095— 

.CM000095 

CH000095 


00361  020020 


02  LOO  13  PICTURE  XX. 


CH000095 


00363 

020030 

02 

FILLER5 

PICTURE 

XX 

VALUE 

SPACE. 

CH000095 

.00365 _ 020050. 

02 

-_LJQDL14_ 

—PICTURE _ X.IOJ-.. 

_ CM 000095  . 

00365 

020050 

02 

FILLER 

PICTURE 

X  VALUE  SPACE. 

-00366 

020060 

02 

L0QL5 

PICTURE 

XI 101. 

CM000095 

00367 

020070 

02 

FILLER 

PICTURE 

XX 

VALUE 

SPACE. 

CH000095 

00368  020000 

02 

L0016  PICTURE  XU4J^_ 

CM000095 

00369 

020090 

02 

FILLER 

PICTURE 

XXX 

VALUE 

SPACE. 

CM000095 

003.70 

022080  01  HEADMCDD. _ 

.CM000095  . 

00371 

022090 

02 

HCDO 

PICTURE 

XI 12  1 

VALUE 

•  SCAN 

1 

• 

CM000095 

00372- 

022100 

02  FILLER PICTURE 

-  X 1 1 13 1 

VAI.UF 

■PARAMETER 

UNIT  COPE 

LOAOCMQOOQ95 

00373 

022110- 

« 

CODE 

LOAO 

CODE 

LOAO 

CODE  LOAO 

COOE 

LOADCH000095 

003H _ 

022120- 

• 

REFERENCE 

REMARKS'. 

CM00Q095 

■00375- 

022130 

02  - 

FILLER 

PICTURE 

XI  71 

VALUE 

SPACE. 

CN000095 

00376  . 

023010_CL1 _ ODAS-HD. 

00377 

023020 

02 

FILLER 

PICTURE 

X  ( 48 1 

VALUE 

SPACE. 

■'T.VV/M 

llll  l  — 

IJITO1 

XI  31  > 

U0MHTV.7W1 

00379 

023040- 

' YSTEM* . 

0038Q_ . 

.023050 _ 

_  02 

FILLER 

.  PICTURE 

-XI32) 

value 

SPACE. _ 

00381 

023060 

02 

FILLER 

PICTURE 

X I  1 4  1 

VALUE 

i  'SHEET 

OF 

R 1  . 

0Q382  ... 

0230-70 _  . 

..02.. 

-FILLER.. 

-PICTURE. _ Xl.II  _ 

.VALUE. .SPACE., 

00383  **021010  01 

SRLIST. 

CM000095 

00384 

-021020 _ 

_02_ 

filler 

-PICTURE. 

XI  51 

VALUE 

SPACE. _ 

CM000095 

00385  02X030 

00386 _ 021Q.4SL 

00387  021050 

-90  3B8.  021060. 

00389 
00390 


021070 

■021089.. 


00391  021090 


02  LSR1  PICTURE  X  VALUE  SPACE. 

...02  FU  L.E.R _ P.l  CTURE _ XX _ VALUE-SPACE... 

02  LSR2  PICTURE  99. 

.02 _ FILLER _ PICTURE _ xxxx _ VALUE— SPACE.. 

02  LSR3  PICTURE  X(91. 

02  FILLER  PICTURE _ XXXX  VALUE  S EA££j_ 


..CM000095. 

CH000095 

CH000095” 


02  LSR4 


PICTURE  XXX. 


00393 

_99355_- 


021110 

-021120- 


02  LSR5  PICTURE  XI9). 

-02 FILLERB  PICTURE  XXXX _ VALUE  SPACE. 


CM000095 

_CH00.Qfl9.5_ 


CH000095 

CH000095 


■00395 

00396 


021130 

021140 


02  LSR6  PICTURE  XI9). 

02.  FILLER^  PICTURE.;  XXXX  VALUE  SgfcCE* 


CM000095 
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00397 

021150 

02 

LSR  7 

PICTURE 

X  1 9  1  . 

.  ...CMOQO093. 

00398 

021160 

02 

F1LLER0 

PICTURE 

xxxx 

VALUE 

SPACE.  CM000095 

00399 

021170 

02 

LSR8 

PICTURE 

X  19)  . 

..GMQ.00Q.9JL 

00400 

021180 

02 

FILLERS 

PICTURE 

XXXX 

VALUE 

SPACE.  CM000095 

00401 

021190 

02 

LSR9 

PICTURE 

X  I  9  )  . 

C80 00095 

00402 

021200 

02 

FILLER 

PICTURE 

XXXX 

VALUE 

SPACE.  CM000095 

0040  3 

021210 

02 

LSR  10 

PICTURE 

XIIOI. 

CM000095 

00404 

02122C 

02 

FILLER 

PICTURE 

xxxx 

VALUE 

SPACE.  CM000095 

00405 

021230 

02 

LSR  11 

PICTURE 

X 1 14 )  i 

.  __  .  £>1Q.00Q.%S_ 

00406 

021240 

02 

FILLER 

PICTURE 

X  t  5 1 

VALUE 

SPACE. 

00407 

022010 

01 

HEAOSMOS. 

.  CMQQQQ95 

00408 

02202C 

02 

SCMTO 

PICTURE 

XI 12  ) 

VALUE 

•  ST  CH  • .  CH000095 

00409 

022030 

02 

FILLER 

PICTURE 

X  C 120 ) 

VALUE 

PAR.AHEI£R_.  UNITS  RNO 

C0410 

022040- 

1  EQUIV 

RN1  EQUIV 

RN2 

EQUIV 

RN3  EQUIV  RN4  EQUIV 

00411 

022050- 

•  REFERENCE  REMARKS 

00412 

023010 

01 

SC- 

HO. 

00413 

023020 

02 

FILLER 

PICTURE 

X I  43  ) 

VALUE 

SPACE. 

00414 

023030 

C2 

F  ILL  (E 

PICTURE 

X  I  361 

VALUE 

■STRIP  CHART  DATA  REOUCTION 

00415 

023040- 

■ 

*  • 

00416 

023C50 

02 

FILLER 

PICTURE 

XI  29  1 

VALUE 

SPACE. 

00417 

023060 

02 

FILLER 

PICTURE 

XI  14) 

VALUE 

■SHEET  OF  R'. 

00418 

07 30 70 

02 

FILLER 

PICTURE 

XUOI 

VALUE 

SPACE. 

00419 

023090 

01 

MT- 

HO. 

00420 

023100 

02 

FILLER 

PICTURE 

X  I  43  1 

VALUE 

SPACE. 

00421 

023110 

02 

FLLX 

PICTURE 

X 1 15 1 

VALUE 

■MAGNETIC  TAPE  -«. _ 

0042  2 

023120 

02 

FLP 

PICTURE 

X. 

00423 

073130 

02 

FILLER 

PICTURE 

X  (  16 ) 

VALUE 

•-  OATA  REDUCTION*. 

00424 

023140 

02 

FILLER 

PICTURE 

XI  33  I 

VALUE 

SPACE. 

00425 

023150 

02 

FILLER 

PICTURE 

XI 14) 

VALUE 

•SHEET  OF  R'. 

00426 

023160 

02 

FILLER 

PICTURE 

X(  101 

VALUE 

SPACE. 

00427 

023180 

01 

MC- 

HO. 

00428 

023190 

02 

FILLER 

PICTURE 

XI 53 1 

VALUE 

SPACE. 

00429 

023200 

02 

FIXR 

PICTURE 

X  (  32  1 

VALUE 

■MICRDSADIC  DATA  REOUCTION 

00430 

023210- 

■. 

00431 

023220" 

02 

FILLER 

PICTURE 

X  (26) 

VALUE 

SPACE. 

00432 

02323C 

02 

FILLER 

PICTURE 

X  1 14  1 

VALUE 

■SHEET  OF  R'. 

00433 

073240 

02 

FILLER 

PICTURE 

X 1 7 1 

VALUE 

SPACE. 

00434 

024010 

01 

OUM 

-HEAO. 

00435 

02  4  02  C 

02 

SCF 

PICTURE 

XI  321 

VALUE 

'SCANNER  VALVE  OATA  REOUCTI 

00436 

024030- 

■DN 

■. 

00437 

02404C 

02 

OSF 

PICTURE 

XUS) 

VALUE 

•  OSCILLOGRAPH  -•. 

00438 

024050 

02 

SRF 

PICTURE 

X I  32  ) 

VALUE 

•SANBORN  RECORDER  OATA  REOU 

00439 

024060- 

•CHUN  ■. 

00440 

030010 

PROCEOURE  DIVISION. 

CM000095 

00441 

030020 

OPEN  INPUT 

CARO  OUTPUT.  PCARO. 

....  . CMOOO.095 

00442 

030021 

OPEN  OUTPUT 

LIST. 

00443 

030Q3C 

PI. 

CM000095 

00444 

030040 

READ  CARO  AT  END  GO 

TO  P2. 

CM000095 

00445 

030050 

WRITE  OCAR 

FROM  CAR. 

CM000095 

00446 

030060 

GO 

TO  PI. 

CM000095 

0044  7 

030070 

P2. 

CM000095 

00448 

03003C 

CLOSE  CARD. 

00449 

030100 

OPEN  INPUT 

HOOK. 

CM000095 

0045C 

030130 

PERFORM  SPACE-T0. 

CH000095 

00451 

**030110 

PERFORM  OP- 

BF  THRU  BEND. 

CM000095 

00452 

030120 

PERFORM  DO- 

U  THRU  ALL- 0(1. 

CM000095 

00453 

031010 

KD- 

HK. 

.  _  CMOOQQ95 
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0045.4.  031131.  .  C10SE  OCARD. 

00455  **031012  R0-HK1. 


0045.6  031920 _ REAO.HOOK.  AT  END.  GO..  IO.HKtJENQ. 

00457  IF  HR 3  =  »A'  MOVE  1  TO  N. 

00458  _ _  IF  HR 3  »  'S'  MOVE  2  .TO  N.._.  _. 

00454  IF  HR 3  =  *C'  MOVE  3  TO  N. 

00460  .  IF  HR 3  =  *0'  HOVE  4  TO  N. 

00461  IF  HR 3  =  'E'  HOVE  5  TO  N. 

00462 _  _ .IE  HR3.=  JF'  .HO.VE  6  TO  N.  .  

00463  031030  IF  HR  1 2  =  'SC'  GO  TO  NN1. 

00464  031040  .  IF  HR12  =  *HT*  GO. TO  HN2.  .  _ 

00'465  031050  IF  HR12  =  ‘OS'  GO  TO  HN3 . 

00466 _ 031.0.60  _  IF  HR12  =  ,'HCi  _GO._TO  MN4. _ 

00467  031090  IF  HR12  «  '00*  GO  TO  MN6. 


00468 _ 03.1100. _ IF_.HR12  =.  '  SR  J  .GO.  TJO  MN.7. _ 

00469  031110  GO  TO  R0-HK1. 

0047.0 _ _03-113O  HN1.  _  . . . . 

00471  MOVE  HPAR  TO  SC2  (R345). 

00472  _ 03 1 1 40__  .  OPEN  INPUT  DC  ARO  .  ..  . 

00473  031150  HN1  A. 

00474  03L160  .  READ  OCARD  AT  END  GO  TO  HN1Z. 

00475  031170  IF  J1R 1  NOT  =  HPAR  GO  TO  MN1A. 

00476  _  031180_..  .  IF  0R2  »  •  •  GO  TO  MN1Z._.  . 


00477 

031200 

GU  TO  SC-ROUTE. 

.004.78  _ 

.031210. 

MN2. 

004  79 

HOVE  HPAR 

TO  HT3 

IN. 

RHR45  I  . 

00490.  . 

.031220. 

OPEN  INPUT 

DCARO. 

00461 

031230 

MN2A. 

00482... 

.031240 

REAO  OCARD 

AT  ENO 

GO 

TO  HN1Z 

00483 

031250 

IF  OR  1  NOT 

»  HPAR 

GO 

TO  HN2A 

00484 

032010 

IF  0R4-  =  • 

•  GO 

TO 

HN1Z. 

00485 

032030 

CO  TO  HT-ROUTE. 

00486 

032040 

MN3. 

00487 

HOVE  HPAR 

TO  0S3 

IN, 

RHR45I. 

00488 

032050 

OPEN  INPUT 

OCARO. 

00489 

0  32060 

HN3  A. 

00490 

032070 

READ  DCARO 

AT  END 

GO 

TO  MN1Z 

00491 

032030 

IF  OR  1  NOT 

=  HPAR 

GO 

TO  HN3A 

00492 

032390 

IF  OR 3  =  • 

•  GO 

TO 

HN1Z. 

00493 

032110 

GO  TO  OS-ROUT. 

00494 

C32120 

MN4. 

.chqooosls _ 


CH000095 

_ CH00.0095 

CH000095 

_ CH0.00095.  _ 

CM000095 

_ tH.00_0.Q9i _ 

_ CM000095 _ 

_ CH00.0095 _ _ 

CM000095 

_ .CH.00Q.Q95_ 

CH000095 

_ CH000095— 

CH000095 

_ CH000095... 

_ CH00.0095  _ 

CH000095 

_ _ CHOOOQ95. 

CH000095 

_  _  CH000095_ 

CM000095 

_ CH000095 

_ CH000095  . 

CH000095 

_  CH000095 

CH000095 


_ _ CH000095 


0049  5 
00496 
30497 
0049  9 
00499 
00500 
00501 
CO502 
C0533 
00504 
00505 
00506 
005C  7 
0C5CU 
0O5P9 
00510 


IF  R345  <  100  MOVE  1  TO  J  MOVE  R345  TO  K  GO  TO  BLUE. 

IF  R345  <  200  SUBTR4CT  100  FROM  R345  GIVING  K.  MOVE  3_T0  J 
GO  TO  BLUE.  ' 

SUBTRACT  400  FROM  R345  GIVING  K.  ....  . 

MOVE  2  TO  J. 

BLUF.  ‘  -  _ _ 

MOVE  HPAR  TO  MC2  IJ.K). 

032130  OPFN  INPUT  UCARD.  . . 

332140  MN4A. 

032150  READ  DC  ARO  AT  END  Gil  TU  MN1Z. 

037160  IF  OKI  NOT  =  HPAR  GO  TO  HN4A. 

032170  IF  OR 5  =  ■  •  GO  TO  MN1Z. 

032190  Gl)  TU  MC-ROUTE. 

0372 JO  MN6. 

MOVE  RHR45  TO  K. 

IF  HHR 3  =  0  ANO  RHR4  5  «  0  MOVE  100  TO  K. 


CM000095 

CH000095 

CH000095 

CM000095 

CH000Q.95 

CH000095 

CH000095 
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00511 

IF  HHR3  =  0 

00512 

00513 

MOVE  HPAR  TO  003  1 l.K). 

□PEN  INPUT  DCARD. 

00514 

032220 

riN6A. 

CM000095 

00515 

032230 

READ  DCARD  AT  END  GO  TO  MNIZ. 

CM0Q0095 

00516 

00517 

032240 

032250 

IF  DR  1  NOT  *  HPAR  GO  TO  MN6A. 

IF  DR7  =  •  •  GO  TO  MN1Z. 

CN000095 

CH000095 

00518 

00519 

033020 

033030 

GO  TO  OO-ROUTE. 

MN7. 

CM000095 

CM000095 

00520 

MOVE  HPAR  TO  SR 3  ( HHR3 .RHR451 . . 

00521 

93.3250 

□PFN  INPUT  OCARD. 

CH0Q0095 

00522  033050  MN7A. 

00523  033060  .  READ  DC ARP  AT  ENO  GO  TO  HN1Z. 

00524  033070  IF  OR  1  NOT  =  HPAR  GO  TO  MN7A. 

J10525 _ Q33.QS.Q _ UEjaft-S-I _ L_£2_L2_aiai. _ 


CN000095 

.CM000.055 

CH000095 

JCM0Q2225. 


00526  033100 

00528  033120 


GO  TO  SR-ROUTE. 


01  SPLAY  'OATA  REO .  N/A  •  0R1. 


00530 

,  .OPS  31 


034010  SC-ROUTE. 

03401 1 _ HOVE  JJ  TO  J. 


.CH000095 

CN000095 

-CHPQ0095.. 

CH000095 


00532  034020  PERFORM  MTH-RO  VARYING  K  FROM  1  BY  1  UNTIL  K  >  J  OR  SMI  *  1.  CH000095 

00533  0340T0 _ MOVE  2_T0.  SW1. _ CH000095 

00534  **034030  IF  K  >  J  OISPLAY  'SCI  NOT  -  RE AO 1  GO  TO  RO-HK.  GO  TO  SCR1.  CN000095 

00535  034040  MTH-RO .  _  _  _ _ CM000095 

00536  034050  IF  HR345  =  SCI  IK)  MOVE  1  TO  SMI.  CM000095 

_0fi537 _ 034060  SCR1. _ _ _ _ _ CHftP0Q95_ 


00530  034071  COMPUTE  K  -  K  -  1. 

00539  034080  IF  R0R2  =  *M'  MOVE  'MV  CALS'  TO  SC10_(R)  GCLT_D_S£B.12. _ 

00540  034090  IF  R0R2  »  MOVE  'IN  PLACE  CALS'  TO  SC10  IK)  GO  TO  SCR10. 

00541  034100  IF  R0R2  »  'S’  MQVE  'SPECIAL  CALS'  TO  SC10  IK)  GO  TO  SCRIP. 

00542  034110  IF  R0R2  NOT  -  *R*  OISPLAY  *3411'  DR2  GO  TO  RO-HK. 

-22543 _ 034120 _ OPEN.  Ijjpyj.. £f.  1.1  E_._ _ _ 


00544  034130  SCR  2. 

00545  034140  READ  CFILE  AT  .GQ.J1Q.  CE.N2t_^. . 

00546  034150  IF  C9  NOT  «  '0*  GO  TO  SCR 2 . 


_£M000Q,95 
CM000095 
_CH000095 
CM000095 
CM000095 
CH000095 
.  CM0A0P95 


-00547  .  035160 _ If  _HPAR_NO J.  =_C5_GO..T0  SC£2_,  „.. 

00548  034170  IF  CIO  =  SPACE  GO  TO  SCR3 . 

..00.549  .  034150 _ M.O.VE  C.10/.T.O.  SC4  ,IK)..  . . 

00550  034200  REAO  CFILE  AT  ENO'  GO  TO  CENO. 

0055.1  034220  HOVE  CIO  TO  SC5  IK).  _ . 

00552  034240  REAO  CFILE  AT  ENO  GO  TO  CENO. 


02551_..J 
00554  C35030 

00555  _  035050 

00556  035070 

005_57  _ 035090 

00558  035110 


K.)_*__  _ 

READ  CFILE  AT  ENO  GO  TO  CENO. 
MOVE.  CIO  TO  SC7  IK)  . 

REAO  CFILE  AT  ENO  GO  TO  CENO. 
MOVE  CIO  TO  SC8  IKI. 

GO  TO  SCR9 . 


-.9055.9 _ -933U.0..SCR3..  . 

00560  035130  IF  CU  =  SPACE  OISPLAY  'CIO  Cll 


0056  1 _ 9.3.5 1.4 Q_ . JJO.V.E. .C.l  1  TO  SC4  IK). 


00562 

035160 

REAO 

.00563 

035180  . 

MOVE 

00564 

035200 

REAO 

.-005.65. 

—  035220  . 

MOVE 

00566 

03524G 

READ 

00567 

036010 

MOVE 

CFILE  AT  ENO  GO  TO  CENO. 
Cll  TO  SC5..IKJ... .  .  .  . 

CFILE  AT  ENO  GO  TO  CENO. 

CU  TO  5C6.  IK). _  _ _ 

CFILE  AT  ENO  GO  TO  CENO. 
Cll  TO  SC7  IK  It 


_ .CH000095. 

CM000095 

_ _ £.150.00295. 

CM000095 

_  CM000095. 

CM000095 

_ CM2J2095. 

CM000095 

CM000095 

CM000095 

_ _ CM000095 

CM000095 

_ _  CM000095 

=  SPACE  3513'  GO  TO  CENO.  CH000095 

CM000095 

CM000095 

_ _  .  CM000095 

CM000095 

_ _  _ _ _  CM000095 

CM000095 

CM000095 
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AT  IMO.  GO..IH  JC.ENQ., _ 

00569  036050  HDVE  Cll  TD  SC8  IK). 

JJSilfl _ 036070  SCR9. 


00571  0360B0 


MOVE  CUB  TD  SC 3  (K). 


00573  **036090  SCR  10. 

00574  036100 _ IE.  DR6_ 

00575  036110  IF  0R6 

00576  036120 _ IF  DR6 


00577  036130 

._Q.05.7_9_ _ T&3A1M 

00579  036150 


IF  0R6 
JLF-PRA. 


00581 

_aDi42_ 

00583 

00584 


IF  DR6 
F  DR6 
036170  IF  0R6 
036180  SCR  11. 


•RT'  HOVE 
_'_CA'  HOVE 
•CC*  HOVE 
_1IC-._HQ.VE. 
•EV'  HOVE 


-'.CELL  .PRESS' 
•BAROHETER  1 
_■  VAC REF.  ■ 
•RTT  • 

..'CA-150  0-F  1 
•CC-150  0-F' 
_lI.C.rl  5  0_  QrJEI 
•EVENT  ' 


_TO_SC9_  IX I. 
TQ  SC9  IK) 
.TQ.SC9.JX!. 
TO  SC9  IK) 
TQ  .SC 9  IK) 
TO  SC9  IK) 
_T0_5C9.  IK) 
TO  SC9  IK) 


J»Q_Tfl_ ! 

GO  TD  SCR11 . 
.GQ-LQ  S.CSU.._ 
GO  TO  SCRU. 
GO.T.O..SCRI  1... 
GD  TO  SCRU. 
GO  TO  SCRU. 


00585 

00586 

00587 


036190 

036210 


HDVE  HPAR  TO  SC2  IK). 
GO  TO  RP-HK. _ 


036220  CEND. 

036230 _ DISPLAY  '3623' 


036240 


CLDSE  CFILE. 


_.CH000095_ 

CH000095 

_CH000095. 

CH000095 
_CH000095  _ 
CH000095 
_CH000095  . 

CH000095 
_  CH000095. . 
CH000095 
CH000095 
CH000095 
CH000095  . 
CH000095 
_CH000095_ 
CH000095 
_CHOO_0O.95__ 
CH000095 
—CH00009  5 
CH000095 


005B9 

00590 

037010 

037020 

HT-RDUTE. 

IF  HR 3  *=  'A'  HOVE  1  TO  J. 

CM000095 
CHQ00095 _ 

00591 

037030 

IF  HR 3  «  '  B'  HOVE  2  TO  J. 

CH000095 

00592 

037040 

IF  HR 3  «  'C'  HOVE  3  TO  J. 

C.H000.D95 _ 

00593 
Q559J t_ 

037050 

037060 

IF  HR 3  -  'O'  HDVE  4  TD  J. 

IF  HR 3  -  'E*  HOVE  5  TO  J. 

CH000095 

_.CH00.0095_ 

00595 

00596 

037070 

037080 

IF  HR 3  -  'F*  HDVE  6  TO  J. 

HOVE  RHR45  TO  K. 

CH000095 

CHOQ0095 

00597 

0Q5.9.9L 

037090 

037100 

IF  DR4B  =  'M*  HOVE  *HV  CALS'  TD  HTU  f  J,  K)  GD 
IF  0R4B  -  •!■  HOVE  'IN  PLACE  CALS'  TD  HTU  IJ. 

TO 

XJL_ 

HTR10. 

CH000095 
...CHQ00095  . 

00599 

Q.Q6AP 

037110 

037120 

GD  TO  HTR10. 

IF  DR4B  -  'S'  HOVE  'SPECIAL  CAL'  TO  HIM  (J.  K> 

GO 

TO  HTR10. 

CH000095 

CH000095 

00601 

00602 

037130 
_ 037140 

IF  DR4B  NOT  -  *R'  OISPLAY  '3713'  GD  TO  RO-HK. 
_ OPEN  INPUT  CFILE. _ 

CH000095 

-CH0000.95 

00603 

00604— 

037150  HTRl. 

037160  READ  CFILE  AT  END  GO  TO  HCEND. _ 

CH000095 
CH000095 _ 

00605 


037170 

031180- 


IF  C9  NDT  *  'O'  GO  TO  HTRl. 


000095. 


00607  037190 


00609  037210 
00610  037270 
00611  037230 


IF  CIO  -  SPACE  GD  TO  HTR2 . 

HDVE  _C  1 0..T.O  .HT  5...I J  >  .  K )  . _ 

READ  CFILE  AT  END  GO  TO  HCEND. 
_HQVE.  £U0__TQ_J3T 6  J.A«_XL. 


REAO  CFILE  AT  END  GD  TO  HCEND. 


CH000095 

_ CHO 00095 _ 

CH000095 
,_.CHQ00095._ 
CH 000095 


KiuofFB 

—  Ill  II  II  ■ 

00613 

037250 

READ  CFILE  AT  ENO  GO  TD  HCENO. 

CH000095 

00614 

038010 

HOVE  CIO  TO  HTB  (J.  Kt. 

_ CHO  ODD  95 

00615 

038020 

READ  CFILE  AT  ENO  GO  TO  HCEND. 

CH000095 

00616 

03R030 

HOVE  CIO  TO  HT9  IJ.  K). 

n 

z 

o 

o 

o 

o 

30 

Ul 

00617 

00618 

038040 

038050 

'  GO  TO  HTR9 • 

HTR2  • 

CHO 00095 
_ CH000095 

00619 

00620 

038060 

038070 

IF  Cll  =  SPACE  DISPLAY  'CIO  Cll  =  SPACE'  C7  GO  TD  HCENO. 
HOVE  CU  TO  HT5  IJ.  K) . 

CH000095 
_ CH000095 

00621 

038080 

READ  CFILE  AT  END  GD  TO  HCEND. 

CH000095 

—00.622. 

038090 

HOVE  Cll  TO  HT6  IJ.  K) . 

CH000Q.95 

00623 

.apt ufe. 

038100 

038110. 

REAO  CFILE  AT  END  GO  TO  HCENO. 

. .  •  .  HOVE,  U.1  :TA  HT.7  .U*  •  KA«.  . . j.  ..  .... _ ■  . 

CH000095 
.  ,CH_QftOQ95. . 

\ 
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0062  5 
00626 
00627 
00629 
00629 
00630 
00631 
00632 
00633 
00634 
00635 
00636 
00637 
00636 
00639 
00640 
00  641 
00642 
00643 
00644 
00645 
00646 
00647 
0064H 
00649 
00650 
00651 
00652 
00653 
00654 
00655 
00656 
00657 
0065  8 
00659 
00660 
00661 
0066  2 
00663 
00664 
00665 
00666 
006.67. 
00666 
00669 
00670 
00671 
00672 
00673 
006  74 
006  75 
00676 
00677 
00678 
00679 
00660 
00681 


033120 

READ 

038130 

MOVE 

03814Q 

..  REAO 

038150 

MOVE 

038160 

HTR9. 

038170 

MOVE 

.-CBQOtt095. 

CH000095 

-EH03.QQ35. 


039120.  .  .  CLOSE  .CFILE.,.. 
**039010  MTR10. 

039020 


CM000095 
_C  150.00035 
CM000095 
-CM0OQQ9S 


CM00Q095 

IF  0R6  =  'CP*  HOVE  'CELL  PRESS*  .TO  MT  10_( Jj..  1C)  GO  TO  HTR11.  CH000095 
039030  IF  0R6  =  *64*  MOVE  'BAROMETER  •  TO  MT10  I J •  Kt  GO  TO  MTRll.  CH000095 

039040  IF  0R6  =  !VR»  MOVE  .*.VAC..  REF..  TO  .MTIO  _1  J«  KL  GO  TO  HTRll.  CHQ00D95 

C3905O  IF  OR 6  =  'RT*  MOVE  'RTT  •  TO  MTIO  C  J i  K>  GO  TO  HTRll.  CM000095 

039060  ...  IF  OR 6  =.  *CA'  HOVE.  'CA-150  D-F!.  TO  MTIO  1.1.  HI  GO  TCI  HTRll.  CH000095 

039070  IF  0R6  =  'CC'  MOVE  'CC-150  0-F •  TO  MTIO  tj,  Kl  GO  TO  MTRll.  CM000095 

MOVE.  _•  IC.-15.Q_0-L! _ IQJiTlOJJ, 


*IQ* 

>EV*  MOVE  'EVENT 


IF  0R6 

039080  _ IF  pR6 

039090  IF  0R6 

.  03910Q  MTRll.  .  ... 

039110  MOVE  HP AR  TO  MT3  (J,  K). 

0391 3 Q  GO  TO  RO-HK. 

039140  MCENO. 

_  03915.0. _ 01SPLAV  '3il51i_  _ _ 

039160  CLOSE  CFILE. 

039170  GO  TO  RO-HK. 

040010  OS-ROUT. 


TO  MTIO  IJ,  Kl. 


CM000095 

_ CM0QQ095. 

CM000095 

_ CM000095 

CM000095 

_ CMfl.00095 

CM000095 

_ CM000095 

CM000095 


040020 

IF  HR 3 

= 

•A'  MOVE 

1 

TO 

J 

GO 

TO 

OSRl. 

_  . .  CM000095 

040030 

IF  HR 3 

S 

■B'  MOVE 

2 

TO 

J 

GO 

TO 

OSRl. 

CM000095 

040340 

.  IF  HR 3 

* 

•C'  MOVE 

3 

TO 

J 

GO 

TO 

OSRl.  . 

_ CM000095 

340050 

IF  HR  3 

s 

■D'  HOVE 

4 

TO 

J 

GO 

TO 

OSRl. 

CM 000095 

040060 

IF  HR3 

* 

• E «  MOVE 

5 

TO 

J 

GO 

TO 

OSRl. 

CM000095 

040070 

IF  HR 3 

s 

•F'  MOVE 

6 

TO 

J. 

CN000095 

040071  OSRl. 

040050  IF  RHR45  >  34  01  SPLAY  'OS-ROOT  > 

040090  MOVE  RHR45  TO  K. 


34'  HROOUT  GO  TO  RO-HK. 


040100 

IF  0R3B 

*  1  1 

040110 

IF  0R3B 

=  ■ 

C40120 

0SR10. 

040130 

IF  OR 38 

X  • 

040140 

IF  DR3B 

NOT 

040150 

OPEN  INPUT  i 

MOVE  'MV  CALS'  TO  0S11  I J,  Kl  GD  TO  0SR10. 
MOVE  »_IN  PLACE  CALS’  TO  OS  11  CJ.  Kl  GO  TO 


040160  0SR2. 

040170  READ  CFILE  AT  ENO  GO  TO  OSCENO. 

040180  IF  C9  NOT  =  'O'  GO  TO  0SR2. 

...040JL90 _ IF.  HP.AR  .N0T_5.  i5._G13..TO..  OSRZj _ 


_CM000095 
CM000095 
.  CM000095. 

CM000095 
_  CM000095 
CM000095 

MOVE  'SPECIAL  CAL'  TO  0S11  IJ.  K).  GO  TO  0SR10.  CM000095 
•R’  01  SPLAY  '4014'  0R3  GO  TO  RD-HK.  CH000095 

LE.  _ _ £M 000095 

CM000095 
CM00.0095. 


040200 
.  040210 
040220 
040230 
040240 
.  040250 
041010 
.....041020. 

041030 
i.  041040 
041050 
041060 
041070 
041080 


IF  CIO  =  SPACE  GO  TO  0SR3. 

MOVE  CIO  TO  0S5  IJt  Kl. 

READ  CFILE  AT  ENO  GO  TO  OSCENO. 
MOVE  CIO  TO  0S6  IJ,  Kl 
RFAO  CFILE  AT  ENO  GO  TO  OSCENO. 
MOVE  CIO  TO  0S7  IJ,  Kl,. 

READ  CFILE  AT  ENO  GO  TO  OSCENO. 
MOVF.CIO  TO  .0S8  IJi_.HL, 


CH000095 


CM000095 

_ _  -CM000.095- 

CM000095 

_ CM000095. 

CM000095 

_ CM.QM0.95_ 


REAO  CFILE  AT  ENO  GO  TO  OSCENO. 

MQVE  CIO  TO  0S9..|Jj.  Kl,  _ _  _  _ 

GO  TO  0SR9. 

0SR3. . .  .  _  _  _ 

IF  Cll  -  SPACE  DISPLAY  *4107'  C7  GO  TO  OSCENO. 
MOVE  CU  TO  OSS  IJ,  Kl. 


CM000095 
.XMQQQOSJL 
CM000095 
_CM 00.0055. 
CM000095 
_CMOOOfl.95_ 
CM000095 
.CMOOPJM.5 


/ 
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00682 

00663 

00684 

00685 

00686. 

00687 

00689 

006  B  9 

00690 

00691 

00692 

00693 

00694. 

00695 

00696 

00697 

006  98 

00699 

00700 

00701 

0070.2. 

00703 

00704 

0C705 

00706 

00707 

00703 

00709 

00710.. 

0071  1 

00712 

00713 

00714 

00715 

00714 

00717 

00718 

0071'J 

00720 

0072  1 

C072  2 

00723 

00724 

0072  5 

00726 

0072  7 

00728 

00729 

00730 

00731 

007  32- 

OC733 

00734 

00735 

00736 

00737 

00738 


.  04.1090. 

041100 
.  ... 0.4.1  USL 
041120 
.041130 
041140 
04.1150 
041160 
04JJ.70 
04 1 1  b'0 
_042 120 
**042010 

_ 0420.2.0. 

042030 
042040 
042050 
..  .0420.60 
042070 
042080 
042090 
..  0421C0 

042110 
04213C 
042140 
042150 
042160 
-.  042170 
043010 
....043020 
043330 
043040 
043050 
043060 
04  30  70 
043080 
043090 
043091 
043100 
C43110 
043120 
043130 
0431 4C 
043150 

043169 

043170 
043180 
043190 
0432CC 
043210 
04  3220 
043230 
043240 
04  3250 
944010 
044020 
044030 
044040 


HEAD  CF1LE  AT  ENO  GO  TO  OSCEND..  .  _...  ...  _  _ 

MOVE  CU  TO  0S6  I J,  K1 . 

_ READ  CFILE  .AT  ENO  GO.. TO  OSCENO. _ 

MOVE  Cl  1  TO  0S7  I J.  K1 . 

.. .  REAO  CF1LE  AT  ENO  GO  TO  OSCENO,... _ _ 

MOVE  Cll  TO  0S8  (J.  Kl. 

..  .  REAO  CF1LE  AT  ENO  GO  TO  OSCENO.  _  _ _  _ 

MOVE  Cll  TO  OS 9  (J,  Ki. 

GSR  9.  _  _ _ 

MOVE  Cl  18  tO  0S4  I J,  K). 

CLOSE  CFILE.  .  .  _ _ _ _ 

USR10. 

_ IF  0R6  =  .  'CP'  MOVE  'CELL  PRESS.  J  T0.0S10  ( J ...  K 1  _  GO_T.O.  .00  P_S.,_. 

IF  OR 6  =  'BA*  MOVE  'BAROMETER  ’  TO  USIO  (J,  K)  GO  TO  OOPS. 


_ IF  0R6 

IF  OR 6 
_ IF  OR 6 
IF  OR 6 
IF  .DR 6 


=  'BA'  MOVE  'BAROMETER  ’  TO  USIO  (J,  K)  GO  TO  OOPS.  1 
=  'VR'.MOVE  'VAC..  .REF.. L  TOOSIO.  I.J»_KI..  GO  T0J30PS..J 


=  'RT'  MOVE  • RTT 


•  TO  OSIO  (J.  K>  GO  TO  OOPS. 


=...'CA'.  MOVE  ..'CA-rl500.-F _ '..TO  O.SlD_l  J._K)__GO_tO_QOPS.._ 


(F  0R6  =  'CC«  MOVE  ' CC-1 500-F 
IF  0R6  .-  'IC  MOVE  'IC-1500-F 
IF  DR 6  =  'EV'  MOVE  'EVENT 


•  TO  OSIO  (J.  KI  GU  TO  OOPS. 

'_  TO.  OSLO.  I  J,  K)_GQ--ia  OURS.. 

•  TO  OSIO  (J,  K). 


IF  DR 6  =  'EV  MOVE  'EVENT  •  TO  OSIO  (J,  K). 

OOPS.  .  . . . . . . . 

MOVE  HPAR  TO  0S3  (Jt  Kl 

GO. TO  RO-HK.  .  .  _ _ _ _ 

OSCENO. 

DISPLAY  '4215'  .  .  .  _...  .  _ _ _ 

CLOSE  CFILE. 

.  ..GO.  .TO  RD-HK.  ..  _ _ _ _ ...  . 

MC-ROUTE. 

_ IF  .R 345  .<  100  MOVE  i.TO  MSW1  J  NOVE..R345.  TO._K.jGO_T.Q_HCRi.. _ 

IF  R345  <  200  MOVE  1  TO  MSW3  SUBTRACT  100  FROM  R345  GIVING  K 

. MOVE  3  TO  .  J  _GO_.IQ_.MCR  1 .  _ : _ 

IF  R345  <  400  DISPLAY  '4305'  HROOUT  GO  TO  RO-HK. 

IF  R345  >  499  0 1  SPLAY.  ' 43 06 '  HRDOUT  GO.._Ta.RB=HliJ. _ _ 

MOVE  1  TO  MSW2  SUBTRACT  400  FROM  R345  GIVING  K 

MOVE  2  TO.  J..  .  ..  . . . 

MCR  1  • 

COMPUTE  K  =  K  ♦  1  _ 

IF  0858  =  'M'  GO  TO  MCR2. 

_  IF  0R58.=  'I*  MOVE  'IN  PLACE  CALS'  TO  MC15  (J.  K| 

GO  TO  MCR 10. 

IF  0R53  =  'S'  MUVE  'SPECIAL  CAL'  TO  MC15  IJ.  Kl  GO  TU.MCR10. 
IF  DR 58  NOT  =  'R'  DISPLAY  '4314'  DR5  GO  TO  RO-HK. 

OPEN  INPUT  CFILE. 

MCR  3. 

REAO  CFILE  AT  .ENQ  GO  TO  HCCFND.  .  .  .  .  . 

IF  C9  NOT  =  'O'  GO  TO  MCR3 • 

IF  HPAR  NOT  =  C5  GO  TO  MCR3.  . . .  . 

IF  DR5A  =  '1* 

MOVE  '05'  TO  MC4  I  J.  KI  _  _ _ _ 

MOVF  '06'  TO  MC6  (J,  Kl 

MOVE  '07*  TO  MC8  (J.  K)  _  _ _  . 

MOVE  '08*  TO  MC10  <J,  Kl 

MOVE  *09'  10  MC 1 2  IJi  K)  ....  _ 

GO  TO  MCR4. 

IF  DR 5 A  =  '2'  (JR  '3' 

MOVF.  '25'  TO  MC4  (J.  K) 

MUVE  *26'  TO  MC6  IJ.  K ) 


..CM000095 

CH000095 

.jcMooaoss. 

CH000095 
.CHQ00095. 
CHO 00095 
..CM000CL95. 

CM000095 
_CMOO(i0.9i 
CM000095 
.CM00009.5. 
CM000095 
_CM0  000.95. 
CM000095 
.CM000095. 
CM000095 
_CM0.000.95 
CM000095 
.CM000095 
CM000095 
..CM00009.5. 

CM000095 
_CM0000.95 
CM000095 
.  CN000095. 

CH000095 
..CMOOOQ95. 
CM000095 
_CM000095_ 
CM000095 
.CN000095 
CM000095 
CM00D095 
CM000095 
CHO 00095 
CM000095 

CM000095 
CM000095 
CM000095 
CM000095 
CM000095 
CM000095 
CM000095 
C  MO  000  9  5 

CM000095 
CM000095 
.CM000095 
CM000095 
CM000095 . 
CHO 000 9 5 
.CM000095. 
CM000095 
CM000095 
CM000095 
CM000095 
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00739  ...  044050  _ _ HOVE  12  7.*  _.T.0„MC8.  Jl  «L»_KJ_. 

00740  044060  HOVE  '28*  TO  HC10  (J.  K> 

.  00741 0A407.Q _ NCLVJE...'  291.  T.Q.  HC12-  Ui...*  1 

00742  04 40 BO  GO  TO  MCR4. 

00743  .  0.44090  _ U=_0R5A  =_'V . . . 

00744  044100  MOVE  '45'  TO  NC4  ( j,  Kl 

00745  044110 _ HOVE  *46'  TO  HC6  LJi  K» 

00746  044120  MOVE  *47'  TO  MC8  ( J.  K1 

00747  __  0.44130 _ HOVE.  •481T0.MC1.0_1Jl  JO. 

0074B  04414C  HOVE  *49*  TO  MC12  (J.  Kl 

.  0074.9 _ 04415.0 _ GO  TO  HCR4  . _ 

00750  044160  IF  0R5A  =  '5' 


CHQP0095 

CH000095 

£0000.095. 

CH000095 

£0000.095. 

CM000095 

£0000095 

CM000095 

CHOOfloas 

CM000095 

£0000095 

CH000095 


00751. 

00752 

pom.. 

00754 

00755 _ 

00756 

007.5  7 

00758 

00759 

00760 

00761  . 

00762 

00763 

00764 

00765 

00766 

00767 

00768 

00769_ 

00770 

00771 

0077? 

00773 

00774 

00775 

00776 

30777 

00778 

00779 

00730 

00781 

0078? 

00783 

00784 


..34417.(2 _ MQVE-165J TP.  MC4_.IJ._IU_ 

044180  MOVE  '66*  TO  MC6  (J,  K) 

_  .044.193 _ MO  VE_i4Llia_M.C4.XJU  JSi- 


£0000095 


044200  MOVE  • 68 •  TO  MC10  (J,  K) 

— 04.42 10  _  .  M0V.e_.*_6.9.!  ..TQ..MC12..UJ..KJ... 

044220  GO  TO  MCR4.  CLOSE  CFILE. 

04423a _  01  SPLAY  *4423*  0R5  GO_Tfl..Rfc-HK, _ 

045010  MCR4 . 

045020  IF  CIO  «  SPACE  GO  TO  MCR5 . 


045030  MOVE  CIO  TO  MCS  (J.  K) 

..045040  ..  REAO  CFILE  AT  ENO  GO  TO  MCCEND.  ..  _ 

045050  MOVE  CIO  TO  MC7  (J,  K). 

045060  .  ..  REAO  CFILE  AT  ENO  GO  TO  MCCEND. _  _ 

045070  MOVE  CIO  TO  MC9  (J.  K) . 

045080 _  REAO  CFILE  AT  ENO  GO.  TO  MCCEND. _ _ 

045090  MOVE  CIO  TO  MC11  (J,  K). 

.  04510.0.  _.  REAO  CFILE.  AT  ENO  GO  TO  MCCEND. . . . 

045110  '  MOVE  CIO  TO  HC13  (J.  K). 

045120  GO  TO  MCR9.  .  .  _ 

045130  MCR5. 

045 140. _  IF  Cll  *  SPACE  01  SPLAV_ •A.Sl^.’  C7  GO  TO  NCCE00, 
C45150  MOVE  Cll  TO  MC5  (J.  Kl 

C45160  READ  CFILE  AT  ENO  GO  TO  HCCENO. _  _ 

045170  MOVE  Cll  TO  MC7  (J.  Kl 

045183  READ  CFILE  AT  FNO  GO  TO  HCCENO. 

C45190  MDVE  Cll  TO  MC9  (J,  Kl 

C452C0  REAO  CFILE  AT  ENO  GO  TO  MCCEND. 

043? 1C  MOVE  Cll  TD  MC11  (J.  Kl. 

C452?r  RFAO  CFILE  AT  END  GO  TO  HCCENO. 

04523C  MUVF  Cll  TO  HC 13  (J.  Kl. 

045240  MCR9 .  .  ._  _ 

045?5C  MOVE  CUB  TO  MC 3  (J.  Kl. 

046120  C.LUSE  CFILE. 

**046010  MCR10. 


CM 000095 
£0000095 
CM000095 
-CMOQ0095 
CM000095 
•£00.00095. 
CM00009S 
CM000095 


CN000095 
..  £MOO0_095. 
CM000095 

_ CMOOO095 

CN000095 
_  £0000095. 
CH000095 

_ C0OO.OO95. 

CM000095 

_ CM000095. 

CM000095 

_ QH000095 

CH000095 

CH000095 


CM000095 

_ CH000095. 

CM000095 

_ C-M0.000.95_ 


CM000095 
CM000095 
CM000095 
.  CMO 00095- 
CH000095 
CM000095 
CM000095 


00786 

046920 

IF 

DR  6 

* 

'CP' 

MOVE  'CELL  PRESS 

TO 

MCI  4 

(J. 

Kl 

GO 

TO 

MUMP. 

CM000095 

00786 

046'.:  30 

IF 

OR  6 

= 

'  8A ' 

MOVE  '  3ARITMETF  R 

TD 

MCI  4 

I  J. 

K) 

GO 

TD 

MUMP. 

CM000095 

00787 

946C4P 

IF 

DR  6 

= 

'  VR* 

MOVE  'VAC.  REF. 

TO 

MCI  4 

(J. 

Kl 

GO 

TO 

MUMP. 

CM000095 

00738 

046050 

IF 

DR  6 

* 

■RT' 

MOVE  ' R  T  T 

TO 

MC  14 

(  J  • 

Kl 

GO 

TO 

HUMP. 

CM000095 

00739 

346C6J 

IF 

DR  6 

•CA' 

MOVE  'CA-1500-F 

TO 

MCI  4 

I  J. 

Kl 

GO 

TO 

MUMP. 

CM000095 

C0790 

046070 

IF 

DR  6 

= 

•CC' 

MOVF  'CC-150D-F 

TO 

MCI  4 

I  J. 

Kl 

GO 

TO 

MUMP. 

CM000095 

00791 

046*30 

IF 

OR  6 

= 

«  (C 

MOVfc  • 1 C- 150D-F 

TO 

MC14 

tJ. 

Kl 

GO 

TO 

MUMP. 

CM000095 

00742 

C4699C 

IF 

DR6 

=- 

■EV 

MOVE  'EVENT 

TD 

MCI  4 

I  J. 

Kl 

. 

CM000095 

00793 

046100 

RUMP. 

CMO 00095 

007.94 

0461  10 

MUVE  HP AR 

TO 

MC2  (J,  K). 

N  CM000095 
^  CM000095 

00795 

C46130 

GO 

TO  RD- 

HK  . 
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00796 

_ 046140. 

M.CC.EN0 . 

00797 

046150 

OISPLAV  1 4615 1 

007.9B 

0461.60.. 

CLOSE  CF1LE.  . 

00799 

046170 

GO 

TO  RD-HK. 

00800 

046180 

MCR2. 

00801 

046190 

IF 

DR5A  =  • 1 • 

00802 

046200 

MOVE  •01*  TO 

MC4 

(J,  Kl 

008C3 

046210 

MOVE  1 02 1  TO 

MC6 

(J.  Kl 

00804 

0462.2C. 

MOVE  *03*  TO 

MC8 

IJi  Kl _ 

00805 

046230 

MOVE  ■04l  TO 

MC10 

IJ,  Kl 

00806 

046240 

GO  TO  HCR2A. 

00807 

047010 

IF 

0R5A  «  '2*  OR  *3 

• 

00808 

047020 

MOVE  *21*  TO 

MC4 

(Ji  Kl  . 

0C8C9 

047030 

MOVE  *22*  TO 

MC6 

IJ.  Kl 

00810 

047040 

.  MOVE  ‘23*  TO 

MCB 

1  J. .Kl _ 

00811 

047050 

MOVE  *24*  TO 

MC  10 

IJ.  Kl 

00812.. 

047060. 

GO  T0.HCR2A,. 

0081  3 

0470  7  0 

IF 

0R5A  -  1 4' 

00814 

047080 

MOVE  1 41 1  TO 

HC4 

IJ.  Kl 

00815 

047090 

MOVE  1 42 1  TO 

MC6 

IJ.  Kl 

00816 

_  047100 

MOVE  1 43 1  TO 

MCB 

IJ..  Kl  .  _  . 

00817 

047110 

MOVE  ■44*  TO 

MC10 

IJ.  Kl 

00818 

047120 

GO  TO  MCR2A . 

_ _ 

00819 

047130 

IF 

ORSA  =  *5' 

00820 

047140 

MOVE  • 61 1  TO 

MC4 

(J.  Kl 

00821 

047150 

MOVE  *  62 1  TO 

MC6 

IJ.  Kl 

00822 

...  947160 

.  MOVE  *63*  TO 

MCB 

IJ.  Kl  . 

00823 

047170 

MOVF  1 64 1  TO 

MC  1 0 

IJ.  Kl 

00824 

.0.47180 

GO  TO  MCR2A.. 

. 

00825 

047190 

DISPLAY  *4719*  0R5  GO  TO  RD-HK 

00826 

047200 

MCR2A. 

30827 

047210 

OPEN  INPUT  BFILE 

• 

00828 

C.472  20 

MCR28 . 

00829 

047230 

READ  BFILE  AT  END  GO 

TO  MBEND. 

_ CMQ00095_ 

CH000095 

_ .C.HPJJft055_ 

CH000095 

_ £H000095_ 

CH000095 

_ .CMQ.0.0095._ 

CM000095 

_ CH000095 

CM000095 
_ CWOCL0095„ 

_ CH000095  . 

CM000095 

_ CH00QP9JL. 

CM000095 
_ _CH000095_ 

_ .CM00Q095  . 

CM000095 

_ CUD0009.5  _ 

CM000095 
_ CM0JB0095- 

_ CHD00095_ 

CH000095 

_ CHQQ.0.ft95_ 

CH000095 
_ CH0.QO095- 

_ CM000095. 

CH000095 

_ CMQ.0a02i_ 

CH000095 


00830 

.  047240. 

IF  HROOUT  NOT  •  B3  GO  TO  MCR2B. 

_ CflDQ.Q0£5_ 

00831 

047250 

IF  65  =  *  MSO  1  * 

CM000095 

00832  . 

.  _048010. 

MDVE  '0  MV*  TO  MC5  IJ.  Kl 

CM0.00Q95 _ 

00833 

048020 

MOVE  *4  MV  TO  MC7  IJ,  Kl 

CM000095 

00834 

043030. 

..  GO  JO  MCR2C.  . . . 

_ CM000095 

00835 

048040 

IF  85  =  'MS02*  OR  ■MS03*  OR  'MS04' 

CH000095 

00836 

C43C5C 

MOVE  *0  MV  TO  MC5  IJ.  Kl 

_ CMQO0H95 _ 

00837 

048C60 

MOVE  *4  MV  TO  MC7  IJ.  Kl 

00038 

O40O7C 

MOVE  *8  MV*  TO  MC9  IJ.  Kl 

_ CM0Q0095 _ 

00839 

04808C 

GO  TO  MCR2C. 

CM000095 

00840 

.048090 

IF  B5  =  *  MS05*  OR  *  M  S06 1  OR  *MS07»  OR  'MSOS*  OR  *MS09* 

_ CM05Q09i_. 

00841 

048100 

OR  • MS1C ' 

CM000095 

00842. 

043110 

MOVE  *0  MV  TO  MC 5  IJ.  Kl 

_ CM00.0.Q95 _ 

00  84  3 

048120 

MOVE  *4  MV  TO  HC7  IJ.  Kl 

CM000095 

00  844  .. 

.  04813C. 

. MOVE. *8  MV  TO  MC9  IJ.  Kl 

_ CMD.0.0.095 _ 

00845 

048140 

MOVE  *25  MV  TO  MCU  (J.  Kl 

CM000095 

00846 

. 048150 

GO  TO  MCR2C. 

CH000095 

00847 

04R16C 

DISPLAY  *4816*  65  GO  TO  MBEND. 

CH000095 

00848 

048170 

MCR2C. 

CH000095 

00849 

048190 

MOVE  *  MV  CALS*  TO  MC15  IJ.  Kl. 

CM000095 

00  850 

.  0.40 1.9.0. 

GO  TO  MCR10. 

CM000095 

00851 

048200 

MbfcND. 

CM000095 

00852 

049210 

DISPLAY  *4821*  HROOUT  .  . 

..  CM.S.00095 
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0085JI _ 048220  _ .60. .7.0.  RfcM., _ _ _ 

00854  050010  DD- ROUTE • 

00855  050020  IF  HHR3  NOT  =0  CO  TO  RQ-HK , _ 

00856  050030  HOVE  1  TO  J. 

00858  050050  IF  RHR45~=  0  M0VE~I6o~” TO ~K.’ 

00859  050070 _ IE RR78  ■»  'O'  OR  _£}R  _•  2'_  .QR .  LX1_.QR._'AL 

00860  050080  OR  '7'  OR  '8'  OR  *9'  GO  TD  0DR1. 

00861  050090 _ GD_iajJQB3 » _ 

00862  050100  00R1. 


00864  050120 

00665 _ 050130. 

00866  050140 


OR  '7*  OR  1 8 •  OR  'O'  GO  TO  DDR2. 

L> _ _ _ _ 

IF  0R7  -  '  I  PC  •  HOVE  1  IN  PLACE  CALS'  TO  0016  (J.  K> 


00868  050160  IF  0R7  =  • SPC '  HOVE  'SPECIAL  CALS'  TO  0D16  I J .  K> 

00869  050170 _ G0.T0.0DR9,  _ 

00870  050180  IF  RR7B  =  'R*  AND  RR7C  =  'N*  GO  TO  DDR4. 

00871  050190  DISPLAY  '5019'  0R7  GO..JO  AQtHK.  . . . 

00872  050200  OOR4. 


00874  050220  0DR5. 


00876 
0.68 77__ 
00878 

.Q0879 _ 

00880 

00882 

.00883 

00884 

00885 

008B6 


050240 

050250 

051010 

051020 

051030 

051040 

051050 

_O5J.0.6.0_ 

051070 

051080 

051090 


00888  051110 

00.839  .  051110 _ 

00890  051130 

00891  05114 0 _ 

00892  051150 

00893  051160 _ OJ 

00894  051170  DDR6. 


AD  C.FJJ.E  _AT .  .E.NO  GO  JO.DDCENCL, _ 

C9  NOT  *  'O'  GO  TO  DDR5. 

_HPAR  NOT  *_C 5  _GiL  TO.  Q0*5i _ _ 

RR7A  = 

_ HflVE_1261  1D.Q05_Uj..JO _ 

HOVE  '27'  TO  007  (J,  Kl 

.  HOVE  '28*  TO  DD9  j_J»  *L_  _ 

HOVE  *29'  TO  0011  IJ.  K» 

HOVE  '30*  TO  0013  IJ,  Kl 
GO  TO  00R6. 

RR7A  -  «-' _ _ _ 

HOVE  '26'  TO  D05  IJ,  Kl 

__H0Y£_!2.5.,_IQJ.D7. _Ut  K ) _ 

HOVE  *24'  TO  0D9  (J,  K> 

. .. JO VE_!.23.7  TO  0011  (J,  Kl _ 

HOVE  '22*  TO  D013  (J,  Kl 

—IRVE. TQ  .NEfir _ _ 

GO  TO  D0R6. 

SPLAT  '_5116'_  DR7_  GO  TO..DD£E_ND. 


00896  051190  HOVE  CIO  TD  D06  IJ,  K! 

0.0  692_— .  .05.i2D.tt_  .. .  READ_CFiLE  AX.£ND  .  GQ..TJU)0£.ENa.. 
00898  051210  HOVE  CIO  TO  DD8  IJ,  Kl 

00899  051220  ~  REAP  CFILE  AT  _ENO  GO_TO  ODCENO. 

00900  051230  MOVE  CIO  TO  DD10  IJ,  Kl 


00904  052020  H 

J10905 _ 052030.  fi 

00906  052040  DDR7. 


HOVE  CIO  TO  0014  IJ,  K) 


00908  052060 

0090 9_,_  0U07O 


HOVE  Cll  TO  006  IJ,  Kl. 
REAfl.JuFILEoAI.  WO  GO  TO.  SOCEHO- 


_ CH0.00095 

CH000095 


_ C.M000095 

CH000095 

_ CMQ0D0.95 

CH000095 


CH000095 

_ CHQ00095 

CH000095 

_ CMQ0DD95 

CH000095 

_  CH000095 

CH000095 

_ CH000095 

CH000095 

_ CH000095 

CH000095 
_ CMD.ttO.O.9.5. 

_ CMOOQO.95 

CH 00009 5 

_ CH000095.. 

CH000095 

_ CH000095 

CH000095 

_ CH000095 

CH000095 

_ CHQ00095 

CH000095 

_ CH000Q95 

CH000095 

_ CH0OQ095. 

CH000095 

CHOOOQ95 

CH000095 

_ CM000095 

CH000095 


CH000095 

.CH000095. 

CH000095 

.6HQ00.095.. 

CH000095 


CH000095 

_£BfiOD095_ 

CH000095 


CH000095 

CHQ0O0.95 
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J10.V  E_C1  1  ..TO  .DO_8_LJ  JOj- 


CJU200995. 


00911 

00912 

052090 

052100. 

REAO  CFILE  AT  ENO  GO 
HOVE  Cll  TO  0010  (J. 

TO  OOCEND. 

Kl  - 

CH000095 

CH000095 

00913 

052110 

REAO  CFILE  AT  ENO  GO 

TO  OOCENO. 

CH000095 

00914 

052120 

MOVE  Cll  TO  DD12  IJ. 

Kl. 

CN000095 

00915 

052130 

REAO  CFILE  AT  ENO  GO 

TO  OOCENO. 

CH000095 

00916 

052140 

_ HOVE  Cll  TO  0014  IJ. 

Kl. 

CM000095 

00917 

00918 

052150 

052160 

00R8. 

HOVE  CUB  TO  D04  IJ. 

.&Lt_ 

CH000095 

CH000095 

00919 

_009iQ. 

00921 

-05522. 

0,0923 

00924 

00925 

_00926_ 

00927 

00928 


053110  CLOSE. CFILE. 

_ _ 

052100  ,  IF  NEG-SW  =  1  HOVE  0  TO  NEG-SW 

_ 05219(3 _ HOVE  TO  ODSN  tJ.  K I  . _ _ 

053010  IF  DR6  =  'CP*  HOVE  'CELL  PRESS1  TO  0D15  (J,  Kl  GO  TO  OORX. 


053030 

jiayatt. 


IF  0R6 
IF  DR6 


•VR* 
1 RT 1 


HOVE  'VAC.  REF. 

JjQ.VE-'.RII _ 


053050 

053060 


•CA*  HOVE  'CA-1500-F 


IF  0R6  = 

F 

IF  OR 6  «  • IC •  HOVE  'IC-1500-F 

iF_DBA._s_iE.vi.j<av.E_iEyi[a._  ... 


00929  053070 

.  9093.0. _ 05 300.0. _ 

00931  053090  OORX. 

00932  053100 _ HOVE  HP AR  TO  D03  (J.  Kl 


TO 
T.O.. 
TO 
-’..TO. 
TO 
TO. 


CH000095 
.  CH000095 
CH000095 
_ CH000095 
CM000095 
_C»ia00ft95_ 
CHO0OO95 


0015  (Jt  Kl  GO  TO  DORX. 

DO L5_ IJ t__K )  GO  TO  DORX. _ CM000095 

0015  IJi  Kl  GO  TO  OORX.  CH000095 


0015  (J,  Kl  GO  TO  OORX. 
DD15  IJ.  Kl. _ 


00933 

00934 


00935  053140 


053120  GO  TO,RO-HK. 
053130  DOC END . 


DISPLAY  '5314' 

!  r.FII  F _ 

00937  053160  GO  TO  RO-HK. 


00939  054020 


IF  R0R7B  »  08  GO  TO  D0R2A. 


CH000095 
,.CH000095_ 
CH000095 
JCH000095. 
CH000095 
_CH000095 
CH000095 
JCHQ000.95. 
CH  000095 
CH000095. 
■CM000095 


00941 

054040 

IF  R0R7B  -  24  GO  TO  00R2C. 

CH000095 

00942 

054050 

IF  R0R7B  -  32  GO  TO  D0R2D . 

CH000095 

00943 

054060 

IF  R0R7B  »  40  GO  TO  OOR2E. 

CH000095 

00944 

054070 

IF  RDR7B  *=  80  GO  TO  DDR2F . 

CM00n095 

00945 

054080 

D0R2Z. 

CH000095 

00946 

054090 

DISPLAY  '5409'  DR 7  GO  TO  RD-HK. 

CM000095 

00947 

054100 

OOR2A. 

CH000095 

00948 

054110 

IF  RR  7  A  = 

_  CM000D95 

00949 

054120 

HOVE  1  2*  TO  005  (J,  Kl 

CH000095  , 

_  0095.0 

._  054130 

HOVE  '0  MV  TO  D06  IJ.  Kl 

_ _  .CH000095 

00951 

054140 

HOVE  •  3*  TO  007  (J,  K) 

CH000095 

—0.0952 _ 054150. 

•  HOVE  *8  MV'  TO  008  (J.  Kl 

_  .....  _  CM000095 

00953 

0  54160 

GO  TO  00R20 • 

CH000095 

00-954 

0541  70 

IF  RR7A  = 

_  _  _  _ _ CH0OOO95. 

00955 

354180 

HOVE  '  2*  TO  005  IJ,  Kl 

CM000095 

00956. 

...  Q54.19.CL 

_ HOVE  ...'.0  HV..TO  006. (J,  K.I..  . 

CH000095 

0095  7 

054200 

MOVE  ■  1'  TO  DD7  (J,  Kl 

CH000095 

_0_0953_. 

....Q5.421.Q 

.....  ..  .HOVE.  1  r8.  MV.!._TO_.PDR..(.J,._KI 

_ _ CH000095 

00959 

054220 

GO  TO  00  R  2  0 . 

CH000095 

00960 

054230 

GO  TO  0DR22 • 

..  _ CH000095 

00961 

055010 

00R2B. 

CH000095 

00962 

35.5020 

..  .1  F..RR 7A 

CH000095 

0096  3 

055030 

HOVE  ■  5'  TO  005  IJ,  K) 

CH000095 

00964 

.  055040 

HUVF  ! 0  MV  .TO  0D6  (J,  Kl 

.  . .  .  . .  CH000095 

0095  5 

055050 

HOVE  •  6'  TO  007  IJ,  Kl 

CH000095 

00966 

055060 

HOVE  '  16  HV  TO  DD8  (J,  Kl 

CH000095 
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0096T_ 
00968 
0096  9_. 
00970 
00971 
00972 
00973. 
00974 
.00975. 
00976 
.00977  . 
00978 
00979.  . 
00980 
0098 1._ 
00982 
.  00983_. 
00984 
.00985  .. 
00986 
00987 
0098  B 
_009B9_ 
00990 
00991  . 
00992 
00993 
00994 
00995 
00996 
00997 
0099a 
00999 
01000 
01001 
01002 
01003 
010C4 
01005 
01006 
01007 
01C«S 
01009 
01010 
01011 
01012 
01013 
0 1 C 1  4 
0L015 
01016 
01017 
Q101H 
01019 
01020 
01021 
01022 
01023 


IF 


055070 
055080 
.0550.90. 

055100 
055110 
055120 

0.55130. _ 

055140  GO 
055150.  DDR2C. 


GO  .TO  .OOR20.  .  _ _ 

RR7 A  = 

.HOVE..!  5 TO  005  U.,_K1 _ 

HOVE  *0  MV  TO  006  1J,  K) 
HOVE  •  4*.  TO  007  <  J,  K | 

HOVE  '-16  HV  TO  008  (Ji  K» 

_.  G0_.TO_.0O_R.20., _ 

TO  00R22. 


055160 
0.55170.  _ 
055160 
...Q5.51.9C_. 

055200 

.  5.55210 _ 


IF 


055220  IF 

.055230  ...  . 

055240 

.  .0.5.52  55 _ 

056010 

056020 

056030  GO 

_  05  60AO  _00R  2  0 . 
056050  IF 

056060  . 

056070 
056080 
056090 
_056i00 


RR7A  = 

..HOVE  •  $•  TO  005  U*._IU _ 

MOVE  *0  MV1  TO  DD6  (J,  Kl 

HOVE  .  9_,_  TO  D07_U,_.Jll.. _ 

HOVE  *24  MV  TO  008  (J,  Kl 
-SO  TO  DPR2Q. _ 

RR7A  ~ 

HOVE  *  .8*  TO  005  I  J,  Kl  .  .  . 
HOVE  *0  HV'  TO  006  (Ji  K) 
HOVE  •  7*  TO  007  (Jt  K)  .. 
HOVE  ’-24  HV  TO  OOB  (J,  Kl 

SO  TO  D0R20. _ _ _ 

TO  OOR2Z. 


056110 

056120 

056130 

056140 

056150 

056160 

056170 

0561BC 

056190 

05520C 

056210 

056220 

C56230 

•75624C 

057010 

057C2C 

057037 

057040 

05705C 

057060 

05707C 


IF 


GO 

00R2E, 

IF 


IF 


GO 


057080  00R2F. 


057990 

057100 

057110 

C57120 

057130 

057140 


ir 


RR7A  = 

HOVE  'll'  TO  005  (J,  Kl 
HOVE  <0  HV  TO  006  I  j,  Kl 
MOVE  *12'  TO  007  (j,  Kl 
MOVE  ■ 32  HV1  TO  OOB  (Ji  Kl 
GO  TO  00R20. 

RR7A  « 

HOVE  'll'  TO  005  I Jt  Kl 
HOVE  *0  HV  TO  006  (J,  Kl 
HOVE  MO'  TO  007  (J,  Kl 
MOVE  '-32  HV  TO  008  (J,  Kl 
GO  TO  OOR20  •_ 

TO  00R2Z. 

RRTA  =■ 

MOVE  M4'  TO  005  (J,  Kl 
MOVE  '0  HV  TO  006  (Ji  Kl 
HOVE  '15'  TO  007  (J,  Kl 
MOVE  ’40  HV'  TO  DOB  (J,  Kl 
GO  TO  0DR20.  .  . 

RRTA  = 

HOVE  ’14'  TO  005  (Ji  Kl 
HOVE  *0  HV'  TO  0n6  (J.  Kl 
MOVF  M31  TO  005  (J,  Kl 
HOVE  1 -40  HV  TO  008  CJ,  Kl 
GO  TO  00R20. 

TO  0DR2Z  « 

RRTA  =  ■+■ 

HOVE  ’17'  TO  005  (J,  Kl 
HOVE  '0  HV'  TO  006  (J,  Kl 
MOVE  ■ lfi1  TO  007  ( J.  Kl 
HOVE  • BO  MV  TO  DOR  (J,  Kl 
GO  TO  00R20. 


_ CH00009S 

CH000095 

_ CH000095 

CH00009S 

_ CM000095.. 

CH000095 

_ CHQ.00Q95.. 

CH000095 

_ CH000095.. 

CHO 00095 

_ l__XHOQOtL95_ 

CM000095 

_ CM0D0Q95.. 

CH000095 

_  CHO 00095- 

CH000095 

_ _  CH000095-. 

CM000095 

_  CHO 00095 

CH000095 

_ XHOOOQ95 

CM000095 

_  CM000095 

CH000095 
_ ...  CMO0OO9S 

CM000095 
CHO 00095 
CM000095 
CH000095 
CH000095 
CHO 00095 
CH000095 
CH000095 
CH000095 
CM00009  5 
CM000095 
CM000095 
CM000095 
CH000095 
CM000095 
CM000095 

CHQ 0.0095 _ 

CH000095 

CM000095 
CH000095 
CM000095 
CH000095 
CH000095 
CH000095 
CM000095 
CH000095 
CH000095 
CM000095 
CH000095 
CH000095 
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01024 
1 0 10?5 
01026 
01027 
0102B. 
01029 
01030 
01031 
01032 
01033 
01034 
01033 
01036 
01C37 
01038 
01039 
01040 
01041 
01042 
01043 
01C44 
01045 
01046 
01047 
01048 
01049 
01050 
01051 
01052 
01053 
01054 
01055 
01C56 
01057 
01053 
01059 
01060 
01061 
01C62 
01063 
01064 
01065 
01066 
01067 
.01068 
01069 
01070 
01C71 
01072 
01073 
01074 
01075 
01076. 
01077 
01079 
01079 
01080 


057150 
057160 
057170. 
057180 
'  057190 
057200 
057210 
057220 
057230 
057240 
058010 
058020 
058030 
058040 
058050 
058C60 
058070 
058080 
058090 
058100 
058110 
058120 
058130 
058140 
058153 
058160 
058170 
3581HC 

..  058190 

058230 
058210 
0592ZC 
05f>23C 
053240 
058253 
059010 
059020 
359030 
059040. 
059050 
059060 
059070 
059080 
059090 
05SIDC. 
0591 10 
059120 
059130 
059140 
059150 
060030. 

**059160 
05917D 
059180 
.  059190 
059230 
059210 


HROOUT  GO  TO  RD-HK. 
'.HRDOUT  GO.  TO.  RD-HK. 


.  .  IF  RR7A  =  .  . .  . . 

HOVE  *17*  TO  005  (J,  K) 

_  MOVE .  *.Q .  HV  ■.  TO  QD6  (J,  KJ _ 

MOVE  • 16*  TO  DD7  ( J,  K) 

HOVE  *-80  MV*  TO  008  (J.  Kl . . 

GO  TO  DDR 20. 

GO  TO  DDR22. 

0DR2C. 

.  .  MOVE  'MV  CALS.'  TP  0D16  !J,  Kl.  _  _ _ 

GO  TO  00R9. 

SR-ROUTE. 

IF  HHR3  >  4  01  SPLAY  '5802  ' 

IF  RHR45  >  8  0ISPLAV..'5803 
MOVE  HHR3  TO  J. 

move  RHR45..T.Q.  K._  .  _ _ 

IF  OR 8  =  ' MVC 1  MOVE  'MV  CALS'  TO  SR11  (J.  K)  GO  TO  SRR10 

IF  0R8..5  ..'IPC  MOV.E...'JN  J>LACE  CALSi_TO  SRlL_Ui_KI _ 

GO  TO  SHR10. 

IF  OR  8  =  'SPC'  MDVE  'SPECIAL  CALS'  .TO.  SRll_.  _ 

GO  TO  SRR10. 

IF  R0R88  NOT  -  'RN*  DISPLAY  '5811*  HROOUT.  GO  TO  RD-HK. 
□PEN  INPUT  CFILE. 

SRR 1 .  ... 

READ  CFILE  AT  END  GO  TO  SRREND. 

IF  C9  NOT  *  'O'  GO  TO  SRR1. 

IF  HP AR  NOT  -  C5  GO  TO  SRR1. 

IF  CIO  *=  SPACE  GO  TO  SRR2. 

MOVE  CIO  TO  SR5  (J.  Kl 
READ  CFILE  AT  ENO  GO  TO  SRREND. 

MOVF  CIO  TO  SR6  U.  K) 

READ  CFILE  AT.  ENO  GO  TfL  SRREND. 

MDVE  CIO  TO  SR7  (J,  K) 

READ  CFILE  AT  ENO  GO  TO  SRREND. 

MOVE  CIO  TCI  SR8  (J,  K) 

READ  CFILE  AT  ENO  GO  TO  SRRENO. 

MOVE  CIO  TO  SR9  [J,  Kl 
GO  TO  SRR9. 


_  CM0QQ095 . 

CUOMO  >5 

_  CM009M5 

CN00009S 

_ CM0000.95... 

CM000095 

_  CH000Q95 _ 

CM000095 

_ • _ CMQ0Q095_ 

CM000095 

_ CM000095 .... 

CM000095 

_ .CM000095. 

CM000095 

_ _£M000.095 _ 

CM000095 

_ CM 00  009.5 _ 

CH000095 

_ CM000095 _ 

CM000095 

_ CM00009S. _ 

CM000095 


SRR2  • 


1. 

CM000095 

CH000095 

CM000095 

__ 

CM000095 
.  CM000.095  . 

1  ■ 

1.-  _  -  - 

CH000095 
CM000095 . .. 
CMO 00095 
CH000095 

CM000095 

CM000095 

CM000095 
CHO 00095 

CM000095 

C7  _GQ_TQ_J1Q=HIL. _ ! _ 

_ CH0.QD095 _ 

MOVE  Cll  TO  SR 5  (J,  K) . 

READ  CFILE  AT  ENO  GO  TO  SRRENO. 

MOVE  Cll  TO  SR6  IJ,  K). 

RE AO  CFILE  AT  END  GO  TO  SRREND. . 

MOVE  Cll  TO  SR7  IJ,  K> 

READ  CFILE  AT  END  GD  TO  SRRFNO. 
MOVE  Cll  TO  SR 8  (J,  K).  \ 


CH000095 
-CM000095  .  . 
CN000095 

JCH000095 _ 

CM000095 

CH000095 


CN000095 
£ HO 00095 _ 


READ  CFILE  AT  ENO  GO.  TO  SRRfcND. . .  . . 

MOVE  Cll  TO  SR9  (J,  K).  CM000095 

SRR9.  .  .  .  _ _ m0QQ095._„ 

MOVE  Cl  IB  TO  SR  4  (J,  K» 

_ CLOSE. CFILE.. _  _ _ _ _ C  MOO  0095 

IF  R0R8A  =  HOVE  TO  SRSN  (J,  Kl.  CM000095 

SRR  10.  .  _ - -  '  - - CMO.OJfi95_ 

IF  DR6  =  'CP*  MOVE  'CELL  PRESS'  TO  SR10  IJ,  Kl  GO  TO  SRRSS.  CM000095 

_  JF.0R6  =.  '8A'_NDVE  'BAROMETER  '  TO  SR10  IJ.  Kl  GO  TO  SRRSS.  CH000095 

IF  0R6  =  'VR'  MOVE  'VAC.  REF.  '  TO  SR10  (J,  K)  GO  TO  SRRSS.  CH000095 


IF  OR 6 


•RT*  MOVE  'RTT 


•  TO  SRI 0  (J,  Kl  GO  JO.  SRRS.S.  .  CM000095 
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01081 _ 059220 _ ...IF  0R.6_=.  *CA'  HOVE.  1CA-150D-F.  ±.  TO  SR10_(  J,...K)..G0  TO._SRBSS^_ 

01082  059230"  IF  0R6  =  *CC'  HOVE  'CC-1500-F  *  TO  SRIO  (J,  Kl  60  TO  SRRSS. 

010B3  059240  IF  DR 6  =  MC*  HOVE  1C- 15.00 -A  «  TO  SRIO  IJ.  Kl  GOTO  SRRSS.  . 

01084  059250  IF  0R6  =  'EV*  HOVE  'EVENT  •  TO  SRIO  (J,  K). 

01.085 _ Ofe0OlO_SMJ5S.. _ _ 

01086  060020  HOVE  HP AR  TO  SR 3  (J.  Kl. 

-0 1 08.7.  000040 _ 6Q._IQ._B  Q-liJS . _ _ 

01088  060050  SKREND.  > 

JJ  1.089 _ Q_6_006Q_ _ OISPLAY.  '6006J _ 

01090  060070  CLOSE  CFILE. 

01091.  060080 _ GO  .TO.  RD-HK. _ 

01092  062010  HK-ENO. 

01094  062030  PERFORM  WR-SC  VARYING  J  FRoTTaV  1_UNTIL  J  >  JJ. 


Ml  Mi>l 


01098 
01099 
01100 
-QUP-L. 
01102 
.0  UQi 

01104 

0A1.0J_ 

01106 


Mi-wnu 


062050  WR-SC. 

062060  .  IF  JECT  =_50 _ 

062061  WRITE  LIT  FROM  SC-HD  AFTER  0 

0620T0 _ tfR.l.T£_UT  _FR.OH  HE40S.HQS_A.FT.ER  .2— 

062080  HOVE  0  TO  JECT. 

062100  MOVE  SCI  (J1  TO  LSC1. _ 

062110  HOVE  SC 2  IJI  TO  LSC2 . 

062120 _ H0VE_SC3  IJI  TO  _LSC3, _ ....  _ 

062130  HOVE  SC4~  IJI  TO  LSC4. 

062140  _ HOVE  SC5  <J)_TO_LSCS. . . . 


01106  062150  HOVE  SC6  IJI  TO  LSC6. 

PHOT _ 06216Q  HOVE  SC 7  IJI  T0_LSC.7a _ 

01108  062170  HOVE  SC 8  IJI  TO  LSC8. 

01109  062180  HOVE  SC9  IJI  TQ_L.SC9V _ _ _ _ 

OlilO  062190  HOVE  SC10  IJI  TO  LSC10. 

01111  062200  WRITE  LIT  _FROH  SCL1ST  AFTER  .2. . . 

01112  062210  AOO  2  TO  JECT. 

01113  063010  WW-HT.  HOVE  ■  TNO  CHAN  »  TO  SCHTO. _ 

01114  063020  PERFORH  WR-HTl  VARYING  K  FROH  1  BY  1  UNTIL  K  >  6 

0 1115  ■  063030 _ AFTER  J  FROH  1  BY  1  UNTIL  J  >  14. _ 

01116  063040  GO  TO  WR-OS. 

01117  063050  WR-HTl.  _ 

01118  063060  IF  JECT  =  28 

■Q11V9,  . -0-63061 _ PERFORM  DO- HO  _ ; _ 

01120  063062  WRITE  LIT  FROH  HT-HO  AFTER  0 

01121  063070 _ WRITE. L_IT  FROH  HEAOSHOS  AFTER  2 _ _ _ 

01122  063080  HOVE"  0  TO  JECT. 


01124  063130  HOVE  HT4  IK,  J!  TO  LHT4. 

.01125 _ Q61L4Q. _ .MOVE  HT5  IK.  Jl  TO  LHT5. 

01126  063150  HOVE  HT6  IK,  J)  TO  LHT6. 

01127  063160 _  H0VE_HT7_4I  K».  _JI.  TQ  LHUt _ 

01128  063170  MOVE  HT8  IK,  Jl  TO  LHT 8 . 

01129  063180  HOVE  HT9  IK.  Jl  TO  LHT9. 

01130  063190.  HOVE  HT10  IK,  J)  TO  LHT10. 

.01131 _ 063200  HOVE  HT11  IK.  Jl  TO  LMT11. 

01132  063210  IF  K  M  MOVE  'A'  TO  LMT1. 

.01133  063220  IF  K  =  2  HOVE  «B‘  TO  LHT1. 

01134  063230  IF  K  =  3  MOVE  'C'  TO  LMT1. 

-3.1115 _ 063240  IF  K  =  4  HOVE  'P'  TO  LHT1 . 

01136  063250  IF  K  =  5  MOVE  *E'  TO  LMT1 . 

01 137 —  Q640AH IF  ..UU1.il  - 


.  -CH000095 
CH000095 
-CH000095 
CH000095 
_  CH000095 
CH000095 
..  CH00009S 
CH000095 
-.CH000095 
CH000095 

_ CH000095 

CH000095 

_CM00009.5. 

CH000095 


CH000095 

_CN000095. 


CH000095 
CHOP 009 5 
CH000095 
_ CH000095 
CH000095 
_  .CH000095 
CH000095 
__ CM0OOO95 
CH000095 
_CH000095 
CH000095 
_CH000095 
CH000095 
CH000Q95 


CH000095 
_CH 000095 


CH000095 

_CHfl00095 

CH000095 

__CH0O.aO95. 

CH000095 

__CH000095 

CH000095 

CH000095 

CH000095 

-CHQttftPjai 

CH000095 

_ GH3O0O15- 

CH000095 

_ CHQ0QQ95. 

CH000095 


46 


AEDC-TR-71-10B 


01139  064030 


'UU'l 


01141  064050 
01142  064060 
01143  064070 

01145  065011* 


01147  065030  PERFORM  MR-0S1  VARYING  K  FROM  1  BY  1  UNTIL  K  >  6 

01148  065040 _ _ &FT£R_J_ERfl.H_L..B.Y.  l-UNT  1L  J.  >..16. _ 

01149  065050  GO  TO  WR-MC. 


IF  J  «  12  HOVE  'GATED  T.*  TO  LHT3. 


I.l»l  i  = 


IW.IEI 


CHOP 009 5 

CH000095 


IF  J  »  14  HOVE  'VOICE*  TO  LHT3. 

..ADil_2_Jfl_.J£CJ.. _ _  _ _ 

WRITE  LIT  FROH  HTLIST  AFTER  2. 


HOVE  OSF  TO  FLLX. 


Bl'M'il.llif 


01151  0650T0 

01147  064071 


01153  065072 


01155  065081 

01157  065100 

01159  065120“ 

01160 _ 065130 

01161  065140 

01162  065150 

01163  065160 

01164 _ 06.5170 

01165  065180 

_0tll6.6. (165 120. 

01167  065200 


IF  JECT  =  36 
PFRFHRM 


WRITE  LIT  FROM  HT-HD  AFTER  0 


:  I  a  i  4:1 


HOVE  *0'  TO  JKT 


IF  K  =  1  HOVE  'A*  TO  LOSi. 

—If  K.  -  .  &_HqVE..JLB.'-JO_LaU  ». _ 

IF  K  *  3  HOVE  *C  TO  LOSI. 

IF  R  «  4  HOVE  «D«  TO  LOSI. _ 

IF  K  «  5  HOVE  'E'  TO  LOSI. 

HOVE  J  TO  L0S2. 

-J10YE-053.  IS JJ_J0_U1SX, _ 

IF  J  -  35  HOVE  *1  HZ  'TO  L0S3. 
IF  J  °  36  HQVE  '1QQ  HZ.  ..'  TO  LQS3 
HOVE  0S4  IK,  J)  TO  L0S4. 


01169  065220  HOVE  0S6  IK,  J)  TO  L0S6. 

.  .01 110. _ Q.6.52AQ _ HQ3t£_QSjr_lJU_ii._TCLJJlSl1i _ 

01171  065240  HOVE  0S8  (K,  J)  TO  LOSS. 

_0l  172  065250  HOVE  DS9  IK.  Jl  TO  LOS 9j _ 

01173  066010  HOVE  OS10  (K,  Jl  TO  L0S10. 

01174 06.6.020 _ MO  VE.QSU-  (Kt_J.LJ.0_l.DSll., _ 

01175  066030  ADO  1  TO  JECT. 

*01177  066060  WR-HC. 

_ 0L1.T8 _ OMOZQ > HOVE. 50.  TCL.JECT.  .  . . . : _ 

01179  066080  HOVE  0  TO  JJ. 

.01180 _ 066081 _ _ LF_MSWL.5_1 _ 

01181  066090  HOVE  1  TO  J  PERFORH  WRHC1  VARYING  K  FROH  1 

1 


01183  066110  IF  HSW3  =  1  GO  TO  WR-HC3. 

.01184 _ 06.6120..  ..  GO  T0_WRrHC4 _ _ _ _ _ 

01185  066130  WR-HC2. 

01186 _ 066L40  1F.HSW3.=  0  GO.  TO  WRtHC4,.  _  .  ... _  _ 

01187  066150  IF  HSW2  *  0  GO  TO  WR-KC4. 

.01188  ...  .066160 _ MOVE  _2__tD  J, _ _  _ _ _ 

01189  066170  PERFORH  WRHCl  VARYING  K  FROH  1  BY  1  UNTIL  K  >  100. 

.01190  _  _066130.HR-.MC3. _ _  ..  .  _ 

01191  066190  MUVE  3  TO  J . 

01192  .  .066200  .  PERFORM  WRHCl  VARYING  K  FROM  l  BY  1  UNTIL  K_*._100 . 

01193  066210  WR-HC4. 

01194  066220  IF  MSH2  =  1  HOVE  2  TO  J 


CHO 00095 
CHP00095 
CN000095 
- - CH00P095 


CH000095 

CH000095. 


_ CM0.00095. 

CH000095 
.  CH000095 . 
CH000095 
__CR0.00095. 
CH000095 

_ CH000095.. 

CH000095 


CH000095 
.CM 00 0095 
CHO 00095 
CH0QQ095 
CH00OO95 
XM000095. 
CH000095 
JMD.00Q95  _ 


CH000095 

_ CM000095_ 

CM000095 

BY  1  CM 000095 


CH000095 
.  _  CN000095 
CH000095 

_  CH000095. 

CM000095 

_ CH000095. 

CH000095 

_ CH000095. 

CH000095 

CH0000.95 

CM000095 

CM000095 
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01196 

01197 

066240 

068050 

HOVE  24  TO  JECT. , 

GO  TO  WR-SR. 

01198 

**067010 

WRHC1 . 

CH000095 

01199 

067020 

ADD  l  TO  JJ. 

_ CM000095 

01200 

067030 

HOVE  JJ  TO  LHC1. 

CM000095 

01201 

067040 

MOVE  HC2  IJ.  Kl  TO  LHC2. 

CM000095 

01202 

067050 

HOVE  HC3  IJ,  K)  TO  LMC3. 

CH000095 

01203 

067060 

HOVE  HC4  IJ.  Kl  TO  LMC4. 

r.K000095 

01204 

067070 

HOVE  HC5  IJ,  Kl  TO  LHC5. 

CH000095 

01205 

067080 

MOVE.  HC6  IJ.  K)  TO  LMC6. 

CH000095 

01206 

01207 

067090 

067100 

HOVE  MC7  IJ,  Kl  TO  LHC7. 

HOVE  HC8  IJ.  Kl  TO  LHC8 . 

CH000095 

CH000095 

01208 

01209 

067110 

067120 

HOVE  HC9  IJ,  K)  TO  LHC9. 

HOVE  HC10  IJ,  Kl  TO  LHC10. 

CH000095 

CH000095 

01210 

0L21_L_ 

067130 

067140 

MOVE  HC11  IJ,  Kl  TO  LMC11. 

CM000095 

CH000095 

01212  067150 

JTLZ13 _ 067160. 

HOVE  HC13  IJ,  Kl  TO  LHC13. 

MOVE  MC14.  IJ,  Kl  TO  LMC14. 

CH000095 

CH000095 

01214 

067170 

HOVE  HC 15  IJ,  Kl  TO  LHC15. 

CM000095 

JLU1S. 

067180 

_ IF  JECT  °  5Q _ 

_ CMfiOOfiVL 

CM000095 

CM00009S 

CH000095 

CMOOOQ95 


01216  067181  WRITE  LIT  FROM  HC-HD  AFTER  0 

0J21I _ Q6XLM _ _WRI.TE._L  IT  ..J&WLJHE  A.DHCOJO.  A£TE(L_2 _ 

01218  067200  MOVE  0  TO  JECT. 

01219  067210 _ ADO  2  _T0_  JECT.  .  ..  . . . 

01220  067220  WRITE  LIT  FROM  MCLIST  AFTER  2. 

-01221 _ OHO!  CLJLR-5lR. _ 

01222  071011  MOVE  SRF  TO  FIXR. 

01223  071020 _ MOVE.-!. REC.  CHAN*.  T.O..SCHTO, . . 

01226  071040  PERFORM  WRSR1  VARYING  K  FROM  l  BY  1  UNTIL  K  >  4 

01225  071050 _ AFTER_J  FROM.  1  .BY..1 .  UNTIL  J  >.  8.  .  _ 

01226  071060  GO  TO  ASCEND. 

01227  071080  HRSR1. _ _ .. _ _ _ 

01228  071090  IF  K  *  1  HOVE  'A*  TO  LSR1. 


CM000095 

CHO00Q95 


2  HOVE  * B *  IO_LSRl.  _  .  . 

3  MOVE  »C'  TO  LSR1. 


01229 _ 071092 _ l£_K_ 

01230  071093  IF  K 

-012.3 1 _ 071094  IF  K  =  4  MOVE  *JP !_ T.Ql L SRI.. _ 

01232  071100  HOVE  J  TO  LSR2. 

01233  071110 _ fJOVE  SR 3  (K,. . JJL.TO  .L.S.R  1,._  _ _ 

01234  071120  HOVE  SR4  IK,  J|  TO  LSR4. 

01235  071130  HOVE  SR5  IK,  J|  JO  LSR5. _ 

01236  071140  MOVE  SR6  IK,  J)  TO  LSR6. 

J31237. _ 021155 _ HOVE  SR 7  (K.  J1  TO  LSR7. _ 

01238  071160 

01239  _  .07.1170... 

01240  071180 

07119Q 
071200 
.  .071210  . 

071220 


HOVE  SR 8  (K,  Ji  TO  LSR8. 

HOVE  SR9.  IK,  JI_T_0  ,L5R9._.  . 

HOVE  SR10  IK,  J)  TO  LSR10. 

HOVE  SR  11  IK,  JI  TO  LSRU. 

IF  SRSN  ( K ,  JI  =  »-•  HOVE  * 

FILLERO  FILLERE  ELSE 
F1LLERC  FILLERO  FILLERE. 

.01245  ._  _£>J_123£) _ 1E..JEC.T.  =  24..  .... 

01246  071231  WRITE  LIT  FROM  MC-HO  AFTER  0 

01247..  071240  . _NRITE  LIT  FROM  HEAOSMOS  AFTER  2 

01248  071250  HOVE  0  TO  JECT. 

01249  072010  AOO  1  TO  JECT. 

01250  072020  WRITE  LIT  FROM  SRLIST  AFTER  2. 

01251  072030  ASCENO. 


.  01241  . 
01242 
01243 
01246 


TO  FILLERA  F1LLEKB  FILLERC 
HOVE  SPACE  TO  FILLERA  FILLERR. 


CM000095 
.-CMQ00Q95 
CH000095 
CM000095 
CH000095 
..C.MOOO.Q95 . 
CM000095 
CMOOOQS5. 
CK000095 
CH000095 
CH000095 
CM000095 
CH000095 
CM000095 


CH000095 

CM000095 

CM000095 

CM000095 


\ 
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01253  063030 


.  1  .JO  J...  J6L0V.E..J. _ CHAN _ L  T.0_MCDQ,_M)V.E_25_.T.Q_JECT.._.CM000095_ 


PERFORM  MR001  VARYING  K  FROM  1  BY  1  UNTIL  K  >  100. 
T 


CM00009S 


lit!  aiKI.viiOmxKillAltfl  .W  ■n.ii  1 1  a  (4:1 


01291  073060 

01293  073080 


01295  073160 


J  FROM  l  BY  l  UNTIL  J  >  6. 
_...P£REDRM_SP_C-MC_VAR.Y.l  NG_R_FRQM__L  3.Y..1 
J  FROM  1  BY  1  UNTIL  J  >  3. 

— EERJrJP&tL-SPCrSR  VARYING  R-f  RQR...1.  .BY  .1 
AFTER  J  FROM  1  BY  1  UNTIL  J  =  5. 


CM000095 

_CM00QQ9_5. 

CM000095 

_CH0QQQ.25_ 

CM000095 


CM000095 


.luJVuAiv  ■Mjnivrfl  r  nMraiKtBf  rm  .fninwraj  nH.i'i'M'i-n 


01303  074080  SPC-0S. 

4 _ 


01305  074100  DS5  (J.  K>,  DS6  (J,  K).  OS7  {J.  K» ,  0S8  (J,  Kl , 

.01396 _ 0X4115 _ 0S9  1J.  K).  OS  10  (J.  M.  0S11  Lb  K). _ 

01307  074120  SPC-MC. 

OU.ae  0741V  .  . i NO V€.. SPACE  ,10:^ .MCI J IK2  9Uf.  U*  ,RUx 


CM000095 

_£M0M£L95__ 

CM000095 

CM000095 
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01309 

01310 

01311 

01312 

01313 

01314 

01315 

01316 

01317  . 

01318 

01319 

01320 

31321 

01322 

01323  . 

01324 

01325  . 

01326 

01327  . 

01328 

01329 

01330 

01331  . 

01332 

01333 

01334 

01335 

01336 

01337 

01338 

01339 

01340 

01341 

C1342 

01343 

01344 

01345 

01346 

01347 

01348 

01349 

01350 

01351 _ 

0  1352 

01353. 

01354 

01355 

01356 

01357  .  . 

0135B 

01359 

01360 

01361 

01362 

01363  . 

01364 

01365 


074140 

074150 

074160 

074170 

074200 

074210 

074220. 

074230 

074240 

074250 

075030 

075040 

075050 

075060 

076010 

076020 

076030. 

0  76040 

076050 . 

07606C 

076070 

076C90 

076090 

076100 

C76110 

076120 

077010 

077020 

077030 

077040 

077050 

077060 

077070 

077080 

077090 

077100 

077110 

077120 

077130 

077140 

077150 

077160 


SPC-00. 


MC4  (J,  KJt  NC5  (Jf  K 1  t  HC6  IJ,  K  I. ,  .MC.7. .  LJ KJ _ 

HC8  IJ.  Kl«  HC9  IJ,  Kl,  MC10  (J,  Kl,  MCll  IJ,  K), 
MC12  IJ,  Kl,  MCI  3  IJ,  .Kl,  .MC14.  Ui 
HC16  IJ,  Kl. 


HOVE  SPACE  TO  001  IJ,  K) ,  002  IJ,  Kl,  DD3  IJ,  Kl  0D4  IJ,  Kl 

_  005..1JL,.  Kl .  DD6.  ( J,_KI.  D07  IJ,  Kl. -JW8._1.U_IU _ 

009  |J,  K)  0010  IJ,  Kl  0D1 1  IJ,  Kl  0012  (J,  Kl 
0013  IJ,  Kl  0014  IJ,  Kl  DPI 5  IJ.  Kl  D016  IJ. 

OOSN  IJ,  Kl. 


_C  MOO  0045 

CM000095 


CM000095 

-.01000095. 

CM000095 

JCHOOQ094. 

CM000095 


SPC-SR.  . 

MOVE  SPACE  TO  SRI  IJ,  Kl,  SR2  IJ,  Kl,  SR3  IJ,  Kl ,  SR4  IJ,  K » . 

.  SR5  |J,  Kl,  SR6..I  Jj  .M.j  SRIIJ.  Kl  ,  SR8  IJ.  Kl _ 

SR9  IJ,  K),  SR10  IJ,  Kl  SRI  1  IJ,  Kl,  SRSN  IJ,  Kl. 

PRrBF.  ...  .  .  _ 

OPEN  INPUT  RFILE.  MOVE  0  TO  J . 

RD-HF.  .  _ _ _  _ _ 

REAO  6F1LE  AT  ENO  00  TO  BEND. 

.  .  IF  B3A  NOT  <=  ‘SC1  GO  TO  RO-BF,.  .  .  _ _ 

ADO  1  TO  J. 

. .  .IF  J  >  50  OISPLAV  ‘SC-TABLE  TOO  SMALL 1 _ 

MOVE  838  TO  SCI  IJI. 

GO  TO  RO-BF.  _  _  _  _ 

BEND. 

MOVE  J  TO  JJ. 

CLOSE  8FILE  • 

00-U. 


CHO 00095 
JAQ0QJD95_ 


CM000095 

CM000095 


CM000095 


CM000095 

CM0000.95_ 

CM000095 

£M000095_ 

CM000095 


HOVE  0  TO  J. 

MOVE  1  TO  K. 

00- J. 

MOVE  J  TO  MC 16  'I  1,  Kl 
ADO  1  TO  J  AOO  1  TO  K. 
IF  J  *  100  GO  TO  U-TO. 

GO  TO  DO-J. 

U-TO..  _  _ 

MOVE  400  TO  J 
HOVE  1  TO  K. 

TO- TWO. 

HOVE  J  TO  MC16  12,  Kl. 
AOO  1  TO  J 
AOO  1  TO  K 

IF  J  =  500  GO  TO  DO-MOR. 


CM000095 

_CM9QQ095_ 

CM000095 

__CHOQ_Q_Q95_ 

CN000095 

..CMOQ0O95- 

CM000095 


CM000095 

_ CH000095 

CH000095 

"  "CM000095" 
_CM000095_ 
CM000095 

_ CM000095_ 

CH000095 
_  CM0ppP9£_ 
CM000095 
CH000095 


.07717.0 _ ._G0_T0._T0-TWCU _ 

077180  DO-MOR. 

077190  MOVE  100  TO  J.  _ _ 

077200  MOVE  1  TO  K. 

077210  B4-U. 

077220  MOVE  J  TO  MCI  6  13,  Kl 

077230  .  AOO  1  TO  J.  _ 

077240  AOO  1  TO  K. 

077250  ._.  IF..J  =  200  GO.TO  .ALL-00, _ 

078010  GO  TO  B4-U. 

078C20  ALL-00.  _ _ 

07803C  EXIT. 

079010.  DO-HO.  _ _  _  _ _ 

079020  1 £  K  =  1  MOVE  ■ A •  TO  FLP 

079030  ....  IF  K  =  2  MOVE  »*»  TO  FLP 


CM000095 

CM000095 

.CM00XL095. 

CM000095 

.CH000095 

CM000095 

_CHO00a95. 

CM000095 


CM000095 

CH000095 

CM000095 
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.01366.  __0.79f.40_..  .  _  IF  K  =  3  MOVE  *C'_TO  FLP.  _ 

01367  079050  IF  K  =  4  MOVE  'O'  TO  FLP. 

J) 116 8 _ JttSflftfl _ IF.  K-=_S  MO.V_E_!£i_JO_FLEi_ 

01369  079070  IF  K  =  6  MOVE  *F'  TO  FLP. 
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66661 

00002 

001014 

001020 

IbENTIPICATiaM  DIVISION. - 

PROGRAM-ID*  •CM000048*. 

- C Honours 

CH000048 

00003 

001030 

AUTHOR . 

JACK  ROSE. 

00004 

001040 

INSTALLATION.  ARO 

INC  TULLAHOMA  TENN. 

CM00004B 

oooffs 

001050 

OATE-hRI TTEN.  SEPTEMBER 

L967. 

CM000048 

00006 

001060 

DATE-COMPILED.  DEC 

14,1968 

CH00604B 

UiUUI 

ii  mum 

MIMil 

00008 

C01080 

REMARKS 

.  THIS  PROGRAM  CREATES  A  GILMORE 

TRANSDUCER 

CH000048 

FILE  TO 

rVJi:llJrLN»BR:13 

00010 

001110 

ENVIRONMENT  DIVISION. 

CH00004B  . 

O00 1 1 

001120 

configuration  section 

CMOOOO40" 

00012 

001130 

source- 

CUMPUTER.  IBM-360  H50. 

CH00004B 

ni*i**B 

M  1  1  1  1  1  1  1  ■ 

00014 

001150 

INPUT-OUTPUT  SECTION. 

CH000048 

00015 

001160 

FI Lc-nONTROLi 

CM000048 

00016 

001170 

SELECT  GIL- IN 

ASSIGN 

•G001 '  UTILITY 

. 

. CH000048 

00017 

KliUU 

IVHBM 

. 

■  i r  1 1 1  n  ■ 

oooia 

001190 

DATA  DIVISION. 

CM000048 

00019 

■vlH-I’l 

1  1  1  1  1  1  1  1  ■ 

00020 

001210 

FD 

GIL 

-IN  RECORDING  F  BLOCK  10  RECORDS 

RECORD  133 

CM00004B 

00021 

001220 

LABEL  1 

RECORDS  ! 

STANDARD  DATA 

RECORD  GIN. 

CM000046 

00022 

001230 

01 

GIN 

• 

1 

CM000048 

00023 

001240 

02 

■  II 1  ^11  H'l 

00024 

002010 

FO 

GIL 

-UT  RECORDING  F 

BLOCK  1  RECORDS  RECORD  747 

CM000048 

Mill!  1  1  1  ■ 

00026 

002030 

01 

GOT 

• 

CH000048 

00027 

002040 

02 

GPURSPEC 

PICTURE 

XI 101. 

CM000048 

00028 

002050 

02 

GINS-NO 

PICTURE 

X 1 16 1 • 

CM00004B 

00029 

“061060 

02 

GDAT-REC 

PICTURE 

9161. 

CM00&048 

00030 

002070 

02 

GMAN 

PICTURE 

XI 12  1. 

CH000048 

»«KM 

■r£  r«  1  =■&££££& 

■awtam 

KlUmHi 

—  1  1  1  1  1  1  1  ■ 

00032 

002C90 

02 

GRANGE 

PICTURE 

XI 51 . 

CM000048 

6003T- 

662166 

"02 

gRaN0F=u 

"PICTURE" 

X  ( 1 2 1 . 

CM000048 

00034 

002110 

02 

GPOS-ICON 

PICTURE 

KX. 

CM00004B 

60035 

062126 

"52“ 

GMOOEL 

PICTURE 

XI12I. 

CM0DG048 

00036 

002133 

02 

GNEG-ICON 

PICTURE 

XX. 

CH000048 

00037 

002140 

02 

GSERIAL 

PICTURE 

XI 101. 

'  CM000048 

00Q3B 

C02150 

02 

GP0S-0C0N 

PICTURE 

XX.  ■ 

CH000048 

00039 

C02163 

02 

GFACILITY 

■PTETURE 

xxxx. 

CH000048 

00040 

002170 

02 

GNEG-QCON 

PICTURE 

XX. 

CM00004B 

00041 

002180 

02 

GPUKCHASEO 

PICTURE 

XI 10 1 . 

CM00004B 

00042 

002190 

C2 

GSHIELD 

PICTURE 

XX. 

CH000048 

750043” 

"372700" 

■07“ 

GCAL^UN 

PICTURE 

XXX. 

CMUUUU4H 

00044 

002210 

02 

G0AT-CAL 

PICTURE 

9161. 

CH000048 

00045 

002220 

32 

GEKCITATION 

P I CTUR'E 

S99V99. 

EH0O0O48 

00046 

002230 

02 

GTEMP 

PICTURE 

S9I6I  . 

CM00004B 

00047 

002240 

02 

G3AR0METRIC 

PICTURE- 

S94V99. 

- CM000048 

00043 

002253 

02 

GINPUTRES 

PICTURE 

S9I5IV9. 

CH00004B 

00049 

00  30  10 

02 

GOUTPJTRES  P  ICTURfc 

"  5915IV9. 

CM0C004B 

00050 

033020 

02 

GI.NSUL-RES 

PICTURE 

S9I5IV9. 

CH000048 

0005 1 

0C3C30 

32 

GTERM-L I  NEAR  I  TV. 

- CH060048 

00052 

"103040 

J3  MV0A 

PICTURE 

S9I7IV999. 

CM000048 

CC053 

003050' 

33  MVCB  '  ' 

PICTURE 

S9I8IV99.- - 

- CMD0D04B 

00054 

003350 

33  NV25A 

PICTURE 

S917) V999. 

CM000048 
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00055 

003073 

03 

MV25B 

PICTURE 

S9IBIV99. 

C MOO  0048 

00056 

003030 

o3 

MV66S 

PICTURE 

69  [  7 1 V999. 

CM000048 

00057 

003090 

33 

HV508 

PICTURE 

S9I8IV99. 

CM00004B 

00058 

003 130 

TT 

■  |  lj  1  M 

1  1  llll  1  1  1  1  — 

• 

00059 

003110 

03 

MV75B 

PICTURE 

59  IB)  V99. 

CH000048 

00565 

663125 

3  V 

H7130A 

“PICTURE" 

S  9  ( 7 1  y9"994 

CHUUUU48 

0  0061 

00  3 1  30 

03 

MV1008 

PICTURE 

S9 1 8 ) V99. 

CH000048 

00062  003140 

04 

MV75AA  PICTURE  S9I7IV999. 

CN000048 

00063 

003150 

03 

MV75S8 

PICTURE 

S9 IB) V99. 

CM000048 

■'I9H-HM 

T3“ 

■iiam 

1  1  llll  1  1  1^^ 

1 1 1 1 1  n  ■ 

00065 

003170 

03 

HV50BB 

PICTURE 

S9 I 81 V99. 

CM000048 

■■I'HtM 

Ktl 

Komi 

ii  mm  i  — 

1 1 1 1 1 1 1  ■ 

00067 

003190 

03 

1V25BB 

PICTURE 

S9IBIV99. 

CM0C004B 

00063 

003200 

63 

HVOAA 

PICTURE 

i9inm 

CHO  0(^04$ 

00069 

003210 

03 

MV0B8 

PICTURE 

S9I8IV99. 

CMO 00048 

■  TUT-IUM 

02 

KB1M1HHW 

CH000048 

00071 

004020 

03 

PSI1 

PICTURE 

S9I4I V99. 

CM000048 

00072 

““ DO4C30 

5T“ 

“psrro 

P  ICTJR E 

~~X~. 

C NO 00 048 

00073 

0040  40 

03 

PSINV1 

PICTURE 

S999V999. 

CH000048 

00074 

064050 

6T* 

p?i2 

PICTURE 

59(4) V99. 

CN000048 

00075 

004060 

03 

PSI2U 

PICTURE 

X. 

CM000048 

■aaaga 

■minima 

03 

■jnum* 

■  1  1  1  1 1  1  1 

■ ■  1 1 1 1 1  n  ■ 

000  77 

004080 

03 

PS  I  3 

PICTURE 

S9I4I V99. 

CM000048 

0007B 

004090 

63“ 

p’s' no 

TflTTWr 

~ X. 

CMO  00  048 

00079 

034100 

C3 

PSIMV3 

PICTURE 

S999V999. 

CM000048 

0008(5 

00 41  IT 

03 

P’S!  4 

PICTURE" 

S5995V951 

CH000048 

00081 

004120 

03 

PSI4U 

PICTURE 

X. 

CN000048 

■•I’ll  tl'HI 

“53“ 

■  IIIIIIIIB^ 

■ ■  mil  n  ■ 

00083 

004140 

03 

PSI  5 

PICTURE 

S9999V99. 

CH000048 

00034 

004155 

63  * 

“PST5U 

TltTURT 

X. 

CH00004B 

00085 

004160 

03 

PSIMV5 

PICTURE 

S999V999. 

CM000048 

00036 

004 1?0 

"03“ 

PST6 

""P'tCTTilTfE 

S9‘J$9V99  • 

CW000048 

00087 

004180 

03 

PSI6U 

PICTURE 

X. 

CH000Q48 

00038 

004193 

31 

RSI  MV  6 

PICTURE 

5999 V999. 

—  1  1  1  1  1  1  1  ■ 

00089 

004200 

03 

PS  1  7 

PICTURE 

S9999V99.  . 

CH000048 

06655 

0042 10 

03 

“PSTI70 

“PTCTCnTE" 

X  . 

CH000048 

0009  1 

004220 

03 

PSINV7 

PICTURE 

S999V999. 

CM000048 

00552 

“065010 

52 

GRC  AL-mtP 

P I  CTUfTE" 

~ XXX  . 

CWJ00048 

00093 

005G20 

02 

GRCAL-SN 

PICTURE 

XXX. 

CH000048 

mi 

az 

CiUU  1  "ft  I 

■JIWKCl 

S999V99. 

—  I  I  1  I  I  ■ 

00095 

0C5043 

02 

G0UTPSU 

PICTURE 

S999V999. 

CH000048 

00096  005050 

"TO 

GR- 

CAL  AC. 

CM000048 

00097 

00  5060 

03 

CALACR1 

PICTURE  XX. 

CH000048 

00098  005070 

IT 

CALftCKZ 

PlCIUrtfc  XX  • 

CNUUUU48 

00099 

005030 

02 

GUNBALANCE 

PICTURE 

S999V999. 

CH000048 

oGlOO 

C2 

■  i  ii  1 1 1 1 

PICIURfc 

X* 

M  1  1  1  1  1  1  1  ■ 

00101 

005100 

02 

GRC AL-TKN 

PICTURE 

S9999V99. 

CH000048 

00}6Z““ 

065T1 0 

02  GTXN-P5  1  A 

I’TCTUR  t  !Ti 

CN000048 

00103 

005120 

02 

GFS 

-SEN 

PICTURE 

S999V999. 

CM000048 

00104 

005  136* 

'  "52“ 

GNA  X-N-L  IN 

pictuRT 

"S999V99. 

CMO 06048“ 

00105 

005140 

02 

GMAX-HYST 

PICTURE 

S9999V99. 

CH000048 

mm 

02 

GMAX-N-REPT 

PICIURfc 

LMOuO(J4H 

00107 

005151 

02 

GCORR-P 

'  PICTURE 

X. 

CHO  00048 

00103  0C  5 1 60 

02 

CN00004B 

00109 

005170 

03 

G-RNOl  • 

PICTURE 

S99999V9. 

CH000048 

Tor  ro 

oostto- 

03“ 

(»■“  K  N  0  2 

“ PTCTUR  E 

S9999  099V999 • 

• 

CN000048 

00111 

005190 

03 

G-RN03 

PICTURE 

S99999V99. 

, 

v  CN000048 
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00112  005200  02  G-RNl. _ CHO 00048 


00113 

00114 

005210 

005220 

03  G-RNll 
03  G-RN12 

PICTURE 

PICTURE 

S9I5IV999. 

S9I51V999. 

CM000048 
CH0 00048 

■■LLW 

■unncm 

i  ill 

00116 

005240 

03  G-RN14 

PICTURE 

S9I61V999. 

CH000048 

Ulna 

02 

—  1 1 1  ii  1 1  a 

00118 

006020 

03  G-RN21 

PICTURE 

S9I5IV999. 

CH000048 

00119, 

006030 

03  G-RN22 

PICTURE 

S9(  5 )  V99‘9. 

CH000048 

00120 

006040 

03  G-RN23 

PICTURE 

S9I5IV99. 

CH000048 

IW1 

■im 

l.i>  ms 

UMIMI 

■mm 

00122 

006060 

02 

G-RN3. 

CH000048 

I’ltMirQ  a  rn  ■ 

«inrmi— 

mm  1 1 1 1  ria 

00124 

006080 

03  G-RN32 

PICTURE 

S9I5IV999. 

CH000048 

0012S 

006090 

"53  G-RN33 

PICTURE 

S9(  5 1 V99. 

C  H000046" 

00126 

006100 

03  . G-RN34 

PICTURE 

S9I6IV999. 

CH000048 

k!i!u*a 

BQU1 

02 

G-RN4. 

00128 

006120 

33  G-RN41 

PICTURE 

S9I5IV999. 

CH000048 

uuma 

1V1  n  imi— 

00130 

006140 

03  G-RN43 

PICTURE 

S9I5IV99. 

CH000048 

■'I'llVl'l 

■aaatmi±aa 

00132 

006 160 

02 

G-RN0L. 

CH000048 

UMU 

aiiiim— a 

00134 

006180 

03  G-RNL2 

PICTURE 

S9I7IV999. 

CH000048 

HlUi!] 

"53  G-RNL  3 

UliHliU 

a  mum—— 

aaaiMffiii 

00136 

006200 

02 

GPS- DATE 

PICTURE 

9(6). 

CH000048 

00137 

006210 

02 

GOP -AT 

&999V99. 

00138 

006220 

02 

GOP -PS I  A 

PICTURE 

S999V999. 

CH000048 

S995V999. 

00140 

006240 

02 

GOP— ESS 

PICTURE 

S999V999. 

CH000048 

02 

UHl'LIT 

n  i  n  i  n  aai 

00142 

007010 

02 

8HAX-HVST 

PICTURE  S9999V99. 

CH000048 

EMQI 

MMZii 1 

um 

ILTVQiDlHJA 

—  ii  ii  n  ■  Uitti— a 

00144 

007030 

02 

BCLEANFOR 

PICTURE  XI 201. 

CH000048 

fcionji 

02 

—  1 1  11  i  ■  i  i  ii  a— 

■BBHiraUil 

00146 

007050 

02 

8CALI8AT  2 

PICTURE  916). 

CH000048 

00147 

FILLERL  PICTURE  X, 

i 

00148 

007060 

01 

NEWG. 

CH000048 

00149 

mm 

GIL PICTURE  X 

■BKM±L11 

00150 

007090 

WORKING- STORAGE  SECTION. 

CH000048 

mama 

77 

A 

00152 

007110 

77 

8 

PICTURE  9999  VALUE  0. 

CH000048 

00153 

■Wl 

77 

C 

00154 

007130 

77 

0 

PICTURE  9999  VALUE  0. 

CH000048 

■£H£a 

~TT 

a  iMim'  ii 

■^^KLm±iia 

00156 

007 150 

77 

N-SW  PICTURE 

9  VALUE  0. 

CH000048 

■'I’M'H'l 

TT 

■■UlUJili 

00158 

008020 

roi 

GIL-REC  OCCURS  58. 

CH000048 

BLMil!] 

03  5 

imumsfaB 

00160 

009010 

PROCEDURE  0IVISI0N. 

C  H000048 

KIX22&1 

JKMMdISIiaBHi 

00162 

009021 

HOVE  SPACE  TO  FILLERL . 

CH000048 

00163 

HIV 

00164 

009040 

HOVE  0  TO  A 

CH000048 

TIMES. 

HBUttUJ 

00166 

009060 

HOVE  6  TO  A.  HOVE  70  TO  8.  HOVE  1  TO  C. 

CH000048 

— "■I'K'Mii 

0016^ 

^pp90,80. 

• 

CHOOgCMrS. 
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X~ 


00169  009090  PERFORM  MOVE-DATA  16  TINES. 

00 fTO  009.100  MOVE  61  TO  B. 

00171  009110  PERFORM  MAKE-NUMERIC  THRU  MOVE-OATA  Z  TIMES 

00172 - 009120 - HOVE  64  TO  5. - 

00173  009130  PERFORM  MAKE-NUMERIC  THRU  MOVE-OATA  2  TIMES 

OOlTA  ,  009140  MOVE  67  TO  9. 


00175  009150  PERFORM  MAKE-NUMERIC  THRU  MOVE-OATA  Z  TIMES 

00 176  009160  AbO  1  TO  A. 

00177  009170  MOVE  23  TO  S. 

pong — ooTTBo - p  e'rf  or  hhhove  ^it  nz-rrn  e  s : - 

00179  009190  MOVE  64  TO  B. 

00160  009200  PERFORM  MOVE^ATA  20  TIMES. 

00181  009210  ADO  1  TO  A.  MOVE  16  TO  8. 

00182  009220  perform  mOve-data  5  Times. 

90183  009230  MOVE  26  TO  0. 

00184 - 009240 - PERFORM  MOVE-PATH  '12  TIMES  1 - 

00185  010010  2.  MOVE  77  TO  B. 

00185  010020  PERFORM  MOVE-DTITA.  ADO  5 'TO  B".' "PERFORM  MOVE-DATA. 

00  187  010030  V.  AOO  1  TO  A .  HOVE  23  TO  B. 

00186 - 010040 - PERFORM  HDVF-DATA  12  TIMES. - 

00189  010060  PERFORM  Z. 

00190 - 010090 - AOO  1  TO  K - 

00191  010100  SUBTRACT  60  FROM  B. 

00192  Old  110  PERFORM  MoVe-dATa"10  timest; 

00193  010120  PERFORM  Z. 

00194 - 610160 - AOO  1  TO  T. — MOVE  64  T'O"  B‘. - 

00195  010140  PERFORM  MOVE-OATA  4  TIMES. 

00196 - 010X50 - PERFORMS. - 

00197  010160  AOO  1  TO  A.  MOVE  32  TO  8. 

OTT9S - STOTTO - PERFORM  MOVE-DATA  10  TIMES. - 

00199  010180  PERFORM  Z. 

50200 - 010190 - AOO  2  TO  A.  HOVE  50  TOTH - 

00201  010200  PERFORM  MOVE-OATA  3  TIMES. 

00202  010210  ADO  1  TU  A.  MUVt  4 2  TU  6. 

00203  010220  NN.  PERFOR M  MAKE-NUM ERIC  THRU  MOVE-OATA  2  TIMES  *°°  1  T0. 

00205  010240  PERFORM  MAKE-NUMERIC  THRU  MOVE-OATA  2  TIMES. _ 


0020T  011020  PERFORM  MAKE-NEG  THRU  MOVE-OATA  2  TIMES. 

0020S  011030  .MOVE  24" TO  8.  “  “  “ 

00209  011040  PERFORM  MAKE-NUMERIC  THRU  MOVE-OATA  2  TIMES. 

5521(5  5X1550 - IF  H~SW=  1  SuBTR'ACnTEnCITATIOH  FR5H  0  GrVIHITUEXCITATION 

00211  011060  MOVE  0  TO  M-SH.  MOVE  45  TO  B. 

00212  011 078  PERFORM  HAKE -N EG  THRO  MOVE-DATA  6  TIHFS; 

00213  011080  IF  M-SM  =  1  SUBTRACT  GTEMP  FROM  0  GIVING  GTEMP 

00214 - 011090 - MOVE  0  TO  M-SW.  HrjVE""74  TtTBI - 

00215  011100  PERFORM  MAKE-NEG  THRU  MOVE-OATA  2  TIMES. 

55215 - OTllTO - ADDT- T'CT'BI - - - ~ - - - - - 

00217  011120  PERFORM  MAKE-NUMERIC  THRU  MOVE-OATA  2  TIMES. 


00219  011140 


00220" 

00221 

00222" 


SUBTRACT  GBAROMETR  IC 


- 

FROM  0  GIVING  GUAROMETRIC. 


01 1 1 50 - 

011160  M. 

~5TTV70 - 


MlWh  21  IU”A .  MOVE  2b  1U  'U. 

PERFORM  MAKE-NEG  THRU  MOVE-OATA  5  TIMES. 

ADO  1  TO  6 

PERFURM  MAKE-NUMERIC  THRU  MOVE-OATA. 

"NUVE  0'"T0_H=S'V - 

S JBTRACT  GINPUTRES  FROM  0  GIVING  G1NPUTRES. 


00223 _ 011180 

00225  011200 


CM00004B 
CM000046 
CM0C004B 
CH00P548 
CM000048 
CH00U048" 
CM000048 
514500040 
CM000048 
CH00004B 
CM000048 
CN000048 
CM00004B 
CM000048 
CM0C0048 
CH000048 
CM000048 
CH505048 " 
CM00004B 
CMOOOO40 
CM000048 
CMD0D048 
C  MO 00 04 8 
CN000048 
CM000048 
C  MO 00  045" 
CM000048 
CMUUIT048 
CM000048 
CH050048 
CM000048 
TH000048 
CM0C0048 
CHOP 0048 
CM000048 
"CM000048 
C  MO  00048 
TMDOOO40 
CM000048 
CH000048 
CM000048 
CM00004S 
CM000048 
CM000548- 
CM000048 
tMOO‘JL'48 
CM000048 
CHOC0048 
CM000048 
"CM00004  8 
CM000048 
LHODO04H 
CM000048 
CHOC 0046 
CM0C0048 
THffFOOJTB- 
CM000048 
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5 

00226 

011210 

MOVE  22  TO  A  MOVE  26  TO  B. 

CM000048 

00227 

011220 

PERFORM  W. 

Hum 

00228 

011230 

IF  M-SW  =  1  MOVE  0  TO  M-SM 

CM00004B 

00230 

012010 

ADD  1  TO  A  MOVE  30  TO  3. 

CM00004B 

00231 

012020 

PERFORM  W. 

—  linn  i  ■ 

00232 

012030 

IF  M-SW  =  1  SUBTRACT  1  FROM  M-SW  GIVING  M-SH 

CM000048 

00233 

012040 

MULTIPLY  GI NSUL-RES  8Y  -1  GIVING  G1NSUL-RES. 

CM00004B 

00234 

012050 

MOVE  25  TO  A.  MOVE  59  TO  B. 

C NO 00 04 8 

—.1W.T-T.1 

~VT 

00236 

012070 

ADD  1  TO  8. 

CM000048 

■HI 

00238 

C12090 

S. 

IF  M-SW  =  1  MOVE  0  TO  M-SW 

CM 000 048 

00239 

012  100 

SUBTRACT  MVOA  FROM  0  GIVING  MVOA. 

t  MO 00 048” 

00240 

012110 

T. 

'PERFORM  MAKE-NEG  THRU  MOVE-OATA  8  TIMES. 

C  MOC0048 

CO  241 

012120 

CM000048 

00242 

012130 

PERFORM  MAKE-NUMERIC  THRU  MOVE-DATA  2  TIMES. 

CM000048 

00243 

012140 

R. 

m— ruin  i m 

00244 

012150 

MULTIPLY  MVOB  BY  -1  GIVING  MVOB. 

CM000048 

00245 

012160 

MOVE  26  to  4.  MOVE  59  TO  8. 

00246 

012170 

PERFORM  V. 

CM000048 

00247 

012180 

00248 

012190 

MULTIPLY  MV25A  8Y  -1  GIVING  MV25A. 

CM000048 

00250 

012210 

IF  M-SW  =  1  MOVE  0  TO  M-SW 

CM000048 

00251 

—OW*1 

SUBTRACT  MV 2 58  FROM  0  GIVING  MV25B. 

00252 

012230 

MOVE  27  TO  A. 

CM000048 

00254 

C13010 

AOD  C-.  140  GIVING  0. 

CM00004B 

00255 

013020 

Q. 

CM000048 

00256 

013030 

AOD  1  TO  B. 

CM000048 

00257 

013040 

PERFORM  DM AK E-NUMERIC  THRU  DMOVE-DAtA  2  TIMES. 

CM000048 

00258 

013050 

P. 

IF  N-SW  «  1  MOVE  0  TO  N-SW 

CM000048 

KlL'H4J 

— Hi™ 

00260 

013070 

0. 

MOVE  20  TO  8. 

CM000048 

00261 

013080 

PERFORM  OMOVE-OAT  A. 

CM0C0O4B 

00262 

013090 

PERFORM  DMAKE-NEG  THRU  DMOVE-DATA  3  TIMES. 

CM00004B 

00263 

013100 

ADO  1  TO  B. 

00264 

013110 

PERFORM  DMAK E-NUMERIC  THRU  DMOVE-DATA  3  TIMES. 

CM000048 

00265 

013120 

N. 

00266 

013130 

SUBTRACT  PSIMVl  FROM  0  GIVING  PSIMVl. 

CM000048 

00267 

013140 

MOVE  59  TO  B. 

CM000048 

00268 

013150 

PERFORM  V. 

CM000048 

00269 

013160 

IF  M-SW  =  l  MOVE  0  TO  M-SW 

CW0004B 

00270 

013170 

MULTIPLY  MV50A  8Y  -1  GIVING  MV50A. 

CM000048 

0027  1 

013180 

PE  RFfJRff” T. 

CM00004B 

00272 

013190 

IF  M-SW  =  1  MOVE  0  TO  M-SW 

CM000048 

00273 

013200 

mult  I  PL Y  "ftVTOB  BY  -1  G7VTNTnTV5Tnn 

CH000048 

0C274 

013210 

ADD  1  TO  A.  MOVE  9  TO  B. 

CM00004B 

00275 

013220 

PERFORM  0. 

CH0C0048 

00276 

013230 

IF  N-SW  =  1  MOVE  0  TO  N-SW 

CM000048 

00277 

91^740 

"Subtract  PS l2""FKnH"0' GIVING  PSI2. 

C  MO  (JO  04  8 

00278 

013250 

PEKFORM  0. 

CMOC0048 

00279 

014010 

IF  N-SW  =  1  MOVE  0  TO  N-SW 

C  HOW041T 

0C2H3 

014020 

SUBTRACT  PS  I RV 2  FROM  0  GIVING  PSIMV2. 

CM000048 

C0231 

014*30 

MOVE  59  T3  B. 

CWOTTOT8' 

0C28  2 

014040 

PERFORM  V. 

CM000048 
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00283 

014050 

IF  M-SW 

=  1  MOVE  0  TO  M-SW 

CM000048 

00284 

014060 

MULTIPLY 

'  MV75A  sY  -1  GlvlNG  Hv75A. 

1 1 1 1 1  n  ■ 

00285 

014C70 

PERFORM 

T. 

CM000048 

00286 

■  ill  1  1  1  — 

IF  H-5V 

■s~r — MOVE  0  TO  M-SW - 

■  cmnnnjTB 

00287 

014090 

SUBTRACT 

MV758  FROM  0  GIVING  HV75B. 

CM000048 

052TS" 

HTOlTO 

HoyrTT 

"TCT71  MOVE  9  TO  B. 

CM00004B 

00289 

014110 

PERFORM 

0» 

CM000048 

002915 

T14T275 

IF 

N-SW  =  1  HOVE  0  TO  N-SU - 

CH00004  8 

00291 

014130 

MULTIPLY  PSI3  8Y  -1  GIVING  PSI3. 

■CM000048 

■  Mill 

■W3aa»LI.N 

00293 

014150 

IF 

M-SW  =  1  MOVE  0  TO  N-SW 

CM000048 

(TC794 

— 5T4T5U 

MULTIPLY  PSIMV3  BY  -1  GIVING  PSIMV3. 

CM000048 

00295 

014170 

MOVE  59 

TO  8. 

CM000048 

"0T5296 

014190 

PERFORM" 

V. 

CM000048- 

00297 

014190 

IF  M-SW 

«  1  MOVE  0  TO  M-SW 

CM000048 

■  in  1 1 

1  1  1  ■  ■  1 1 

00299 

014210 

PERFORM 

T. 

CM000048 

OO3C0 

U1472U- 

TF"’R=Ttir 

“ 1  MOVE  0  TO  M-SW 

Ch000O4H 

00301 

014230 

COMPUTE 

MV10C8  «  (0  -  MV1008 I . 

CM000048 

00302 

014240 

MJVE  30  TO  A.  HOVE  9  TO  B. 

CM0OOO48 

00303 

0142  50 

PERFORM 

0. 

CM000048 

■t>J  Hi)  f 

IP 

— ■  1 1 1  m  ■ 

00305 

015020 

COMPUTE 

PS  14  =  I PS  14  *  -i>. 

C  MO 00 04 6 

00306  .015330 

"PURPORT 

TT. 

CMO0OO48 

00307 

C15040 

IF 

N-SW  >  1  MOVE  0  TO  N-SW 

CM000048 

OOTOS 

015050 

CJRPUTE 

"P  SI  HV4  =  TPSTHV4  *  -11. 

CND0004B 

00309 

015060 

MOVE  59 

TO  B. 

CM000048 

■*)  H  lJ  f  t 

■U9.u«r.w 

V  • 

CMUUUU6B 

00  3U 

015080 

IF  M-SW 

=  1  MOVE  0  TO  M-SW 

CM000048 

■  1  11 

KS*MiiUl£l 

■uni  ii— ■ 

i  n  t  t  i  ■ 

00313 

015100 

PERFORM 

T. 

CM000048 

0151  I'D 

"IF  H-SW 

CM000048 

00315 

015120 

COMPUTE 

MV75B8  «  (0  -  MV758B1. 

CM000048 

■I'i 

>.P1’1W 

00317 

015140 

PERFORM 

0*  i> 

CM000048 

00318  015150  IF 

N-sw  «  1  MOVE  0  TO  N-SW 

C MO DO 048 

00319 

015160 

COMPUTE 

PSI 5  -  (PSI5  /  -11. 

CM000048 

00320  015170  PLKFUKM  U. 

CHO 00048 

00321 

015180 

IF 

N-SW  «  1  MOVE  0  TO  N-SW 

CM00004B 

■>1<W^ 

H1  J 1) 

■  WIIUUI* 

00323 

015200 

MOVE  59 

TO  8. 

CM000048 

00324  015210 

"PERFLIRW 

V. 

CMO00O48 

00325 

015220 

IF  M-SW 

=  1  MOVE  0  TO  M-SW 

CM000048 

TJ032"6T 

915  Z30 

"COMPUTE" 

HV50AA  »  1MV50AA  /  -II. 

C MO 0004 B 

00327 

015240 

PERFORM 

T. 

CM000048 

00  J2H 

015  250 

It*  H-bW 

=  i  nuvt  u  i  u 

Ch(J00048 

00329 

016010 

COMPUTE 

HV50B8  -  HV50BB  *  -1. 

CM000048 

HO  330 

016070 

HOVE  32  TO  A.  MUVE9  TOH. 

CM00004B 

00331 

016030 

PERFORM 

Q. 

CM000048 

■  niii 

IF 

N-5W  «■  1  MOVE  0  10  N-SW 

CM000048 

00333 

016050 

COMPUTE 

PS  1 6  e  10  -  PS  1 6 1  • 

CM000048 

016060  " 

PERfuRm 

~xr. 

00335 

■  016070 

IF 

N-SW  =  1  MOVE  0  TO  N-SW 

CM000048 

00336  016080 

"CUM  PUTT" 

PSIMV6  «  (  PSIMV6  *  -11. 

CM000048 

00337 

016090 

MOVE  59 

TO  8. 

CN000048 

00338 

01 61"00 

PERFORM 

V. 

CN000048 

.00339 

016110 

IF  M-SW 

«  1  MOVE  0  TO  M-SW 

_  , 

_ CMOOOPiftj 

S 
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00340 

016120 

COMPUTE  MV25AA  =  IMV25AA  *  -It. 

CM000048 

00341 

00342 

016130 

016140 

PERFORM  T. 

IF  M-SM  «  1  MOVE  0  TO  M-SM 

CM000048 

CH000048 

00345 

00344 

014150 

016160 

COMPUTE  MV25BB  »  1MVZ58B  *  -11 . 

MOVE  33  TO  A.  MOVE  9  TO  8. 

CMD00048 

CM000048 

00345 

00346 

016110 

016180 

PERFORM  Q. 

IF  N-SM  =  1  MOVE  0  TO  N-SM 

CH000048 

CH000048 

0034T 

00348 

016190 

016200 

»1 11 J  i-i  f  fM  f •'JKM  J-^t  1 1  - 

'  CH000048 

CM000048 

0034$ 

00350 

016210 

076220 

IF N-SM  =  1  MOVE  0  TO  N-SH ? 

SUBTRACT  PSIMV7  FROM  0  GIVING  PSIMV7. 

CMU00048 

CM000048 

00351  . 
00352 

016230 

016240 

HOVE  59  TO  3. 

PERFORM  V. 

CMOOQO40 

CH000048 

00353 

00354 

016250 

017010 

IF  M-SH  =  1  MOVE  0  TO  M-SM 

COMPUTE  MVOAA  =  (MVOAA  *  -1). 

CM000048- 

CM000048 

00355 

00356 

017020 

017030 

PERFORM  T. 

IF  M-SM  =  1  MOVE  0  TO  H-SM 

CM00OO48 

CM000048 

TTU357 — 
00358 

017040 

017050 

"COMPUTE  MVOfiB  =  (HVOBB  *  -11. 

MOVE  37  TO  A.  HOVE  65  TO  B.  MOVE  0  TO  C. 

CM000048 

CH000048 

00359 

00360 

017060 

017070 

m  2  4  j  d  »i  j:  w.  iin  c  »i\  rmi  t 

CM000048 
CMO 00048 

00362 

017090 

MOVE  38  TO  A.  MOVE  18  TO  8. 

CM000048 

00363 

00364 

01 1 loo 

017110 

TCT" 

Bjif jji] a.u: rin g a irm ctittm: >n g it.i j  n ^ 

CM00004B 

CM000048 

00365 

00366 

017120 

017130 

H. 

PERFORM  MAKE-NUMERIC  THRU  MOVE-OATA  2  TIMES. 

IF  M-SM  »  1  MOVE  0  TO  M-SM 

CM000048 

CH000048 

00367 

00368 

017140 

017150 

COMPUTE  gout-AT  *  (GoUT-at  *  -II. 

HOVE  29  TO  B. 

CM000048 

CM000048 

00369 

00370 

017160 

017170 

PERFORM  MAKE-MEG  Thru  NOvE-OATA  3  TINES.” 

A00  1  TO  8. 

CH00004B 

CM000048 

00371 

00372 

017180 

017190 

5 

PERFORM  MAKE-NUMERIC  THRU  MOVE-DATA  3  TIMES. 

IF  M-SW  ■  1  HOVE  0  TO  M-SW 

CH00004B 

CN0C0048 

00373  ' 
00374 

'  01720O 
017210 

C  Mo 00 04  8 
CH000048 

00375 

00376 

017220 

017230 

perform  move-oata  2  times. 

MOVE  78  TO  8. 

CK00004B 
CMO 00048 

■Mm 

00378 

017250 

HOVE  39  TO  A.  MOVE  18  TO  B. 

CM000048 

00379 

HLL1U 

L* 

KTJnKT.I'Igl-Tf-W  Cl**— — ■ 

■■wma 

00380 

018020 

ADO  1  TO  B. 

CM000048 

■'Hi'H'i 

■raid.ianrmg'Tiirai  (— 

00382 

018040 

j. 

IF  H-SM  -  1  HOVE  0  TO  M-SM 

CM00004B 

00383 

00384 

018050 

018060 

COMPUTE  GUNBALANCE  »  ( GUNBALANCE  *  -1). 

HOVE  42  TO  8. 

CM000048 
CMO 00048 

■■HIM 

■OtllUJ 

00386 

018080 

MOVE  69  TO  8.- 

CM000048 

00387 

00388 

018090 

018100 

Fm 

CH000048 

CM000048 

00389 

00390 

018110 

018120 

GA. 

PERFORM  MAKE-NUMERIC  THRU  MOVE-DATA  2  TIMES. 

IF  M-SM  *>  1  MOVE  0  TO  M-SM 

CM000048 

CM000048 

00391 

00392 

018130 

018140 

COMPUTE  GRCAl-TKN  =  IGRCAL-TKN  *  -1 1 . 

MOVE  80  TO  8. 

CM000D4B 

CM000048 

00393 

00394 

018150 

018160 

PERFORM  MOVE-OATA. 

MOVE  40  TO  A.  MOVE  19  TO  8. 

CMO0OO48 

CH000048' 

00395 

018170 
018180 ^ 

PERFORM  l. 

AS»  X-SH^J.Jei>PyL.i)_I9.  fcflL,. 

CM00004B 
CMO 00 048 
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018190 


018210 


018230 


018250 


019020 


019040 


COMPUTE  GFS-SEN  -  (GFS-SEN  •  -1>. 


PERFORM  K. 


COMPUTE  GMAX-N-L1N  =  (GMAX-N-LIN  •  -1). 


PERFORM  F. 


COMPUTE  GMAX-HYST  =  I GMA  X-HYST  *  -II.- 


nave  .3  i u  .■  nuve  ci  iu  d. 

PERFORM- MAKE-NEG  THRU  MOVE-OATA  2  TIMES. 


CM000048 


CM000048 


CM000048 


CM000048 


CM000048 


CM000048 


019060 


019061 

019070 


019090 


PERFORM  MAKE-NEG  THRU  MOVE-OATA  2  TIMES. 


mreu,,i 


IF  M-SM  «  0  MOVE  0  TO  M-SW 


K  (rf.f  > 


MOVE  81  TO  8. 


MOVE  46  TO  A.  MOVE  49  TO  8. 


i  jj  ijii  i, 


ADO  1  TO  8. 


019150  -JJ.  IF  M-SM  -  1  MOVE  0  TO  N-SM 


Jiki 


r  (og- a  .nil  | 


019170  KK.  PERFORM  MAKE-NEG  THRU  MOVE-OATA  7  TIMES. 


019190 


019210 


U19HU 

019230 


020010 


020030 


020050 


020070 


KiWiTiT:[i  V  T  1 


020090 


PERFORM  MAKE-NUMERIC  THRU  MOVE-OATA  3  TIMES. 


I  I'l  f  MrMtCLirO'J 


MOVE  0  TO  M-SM. 


t-ttouKn  uu. 

IF  M-SM  =  1  MOVE  0  TO  M-SW 


IF  N-SW  -  1  MOVE  99999.99  TO  G-RN03  MOVE  0  TO  N-SW. 


ktiaiiicin 


MOVE  47  TO  A  MOVE  24  TO  8. 


A00  1  TO  8 


|»L  F  1  :Q .  1 1 1 '  I  a : ■  ( 


A00  1  TO  B. 


MOVE  49  TO  8. 


AOO  1  TO  8. 


020110  88.  IF  M-SM  =  1  MOVE  0  TO  M-SW 


020130 


020150 


Iiw.i 


■  L 1  Li  1 1 1 3H  ra  :i  ; 


PERFORM  AA. 


COMPUTE  G-RN12  -  IG-RN12  *  -1). 


ADD  1  TO  B. 


1 1  l  i3*«  |ivi;i:4i| 


020190  00.  IF  M-SW  =  1  MOVE' 0  TO  M-SW 


'  i  y  T  i  w » r « | 


ItQ’r  || 


IrQ'lk  kftcl 


020210  EE.  PERFORM  MAKE-NEG  THRU  MOVE-DATA  6  TIMES. 


020230 


PERFORM  MAKE-NUMERIC  THRU  MOVE-OATA  3  TIMES. 


CM000048 


CM000048 


CM000048 


CM000048 


CN000048 


C MO 00048 
"TTH000048 
CM000048 


CM000048 


CM00004B 


CM00004B 


CM000048 


CM000048 


CM000048 


.iiurilini- 


CM000048 


CM000048 


CM000048 


CMO  00048 


CM00004B 


CM000048 


CM000048 
— CM00004B' 
CM000048 
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7T 


00454  020240  FF.  IF  M-SW  »  1  HOVE  0  TO  H-SH  CH000048 
0 0455  020250  COMPUTE  G-RV14  »  IG-RN14  *  -It.  CH000048 
00456  021010  IF  N-SH  =  1  HOVE  999999.999  TO  G-RN14  HOVE  0  TO  N-SW.  CH000048 


00457 

■'MW 

MOVE  48 

■  liran.imn  ■!  ■ 

1  II  1  1  1  ■ 

00458 

021030 

PERFORM 

AA. 

CN000048 

00459 

021  540 

IF  H-SH 

F»Mir.TTj  mm 

—  1  1 T 1 T  T'f 

00460 

021050 

COMPUTE 

G-RN21  «  (G-RN21  *  -II. 

CH000048 

00461 

021060 

pErFTTRM 

Tft. 

C M800048 

00462 

021070 

IF  H-SW 

=  1  MOVE  0  TO  M-SW 

CH0D0048 

1  1  1  1  1  1  1  ■ 

00464 

021090 

PERFORM 

CC. 

CM000048 

"W*65 

omotr 

IF  M-SW 

=  r"MTroF"o  nmpsw 

CM000048 

00466 

021110 

COMPUTE 

G-RN23  =  IG-RN23  *  -11. 

CM000048 

00467 

021120 

PERFORM 

EE. 

CM00004S- 

00468 

021 130 

IF  M-SW 

=  1  MOVE  0  TO  M-SW 

CH000048 

■■l.ET-V 

—  1  1  II  HI 

1  1  1 1  1  1  1  ■ 

00470 

021150 

IF  N-SW 

=  1  MOVE  999999.999  TO  G-RN24 

MOVE  0  TO  N-SW. 

CM000048 

■«T«a«a 

■'MIH'l 

r*n  jv 

k  r i rn  ilk  i  Hill  > 

CM00004a 

00472 

021170 

PERFORM 

DMAKE-NEG  THRU  DM0VE-DATA  3  TIMES 

CH000048 

”50473““ 

olTlJJ 

ADO  l  TO  H. 

C  MO 00  048 

0  0474 

021190 

PERFORM 

DRAKE- NUMERIC  THRU  D  MOV  E-DAT  A 

2 

TIMES. 

CM000048 

KOMI 

IF  N-SW 

oamuiiiiMH 

—  1  1  1  1  1  1  ■ 

00476 

021210 

MOVE  999.99  TO  GOP-AT. 

CM000048 

00477 

021225“ 

IF  M-SW 

=■  1  MOVE  0  TO  M-SW 

CM000048 

00478 

021230 

COMPUTE 

GOP-AT  =  IG0P-AT  *  -II. 

CM000048 

00479 

"021240 

MOVE  29 

TO  B. 

00480 

021250 

GG.  PERFORM 

DMAKE-NEG  THRU  QMOVE-DAT A 

3 

TIMES. 

CH000048 

■'MUM 

■'man 

AjD  1  TO  9. 

CM000048 

00482 

022020 

PERFORM 

DMAKE-NUMERIC  THRU  0M0VE-DATA 

3 

TIMES. 

CM000048 

00493 

022035“ 

HH.  If  m-Sw 

=  1  MOVE  0  TO  N-SW 

CM000048 

30484 

022C40 

MOVE  99  9.999  TO  G0P-PSIA. 

CM000048 

00485 

"52  2  6  SO" 

IF  M-SW 

=  1  MOVE  0  TO  M-SW 

CM000048 

00486 

022060 

COMPUTE 

GOP-PSI A  =  (GOP-PSIA  *  -11. 

CM000048 

nwrntTi 

1  1 1 1  1  1  1  ■ 

00408 

022080 

PERFORM 

AA. 

CM000048 

00489 

022090 

IF  M-SW 

MOVE  5"  TO  M-SW 

CM000048 

00490 

022100 

COMPUTE 

G-RN31  =  IG-RN31  *  -11 . 

CM000048 

00491 

022110 

PERFORM 

AA. 

C^0000<*8 

0C49  2 

022120 

IF  M-SW 

=  1  MOVE  0  TO  M-SW 

CM000048 

00493 

022130 

COMPUTE 

G-RN32  =  IG-RN32  *  -11. 

CM000048 

00494 

022140 

(PERFORM 

CC. 

CM000048 

00495' 

32215? 

IF  M-SW 

="'■1  MOVE'  5'  TO  M-SW  " 

- cwnroomr 

00496 

022 169 

COMPUTE 

G-RM  33  =  ( G-RN33  *-11. 

CM 000 04 8 

00497 

0221  70 

“  'perform' 

EE. 

CmO(5DDV8“ 

CC493 

022130 

IF  M-5W 

=  1  MOVF  0  TO  M-SW  ,■ 

CM000048 

00499 

222199 

cjmpuTf 

G-RN 34  =  CD  -  6^3417" 

CM00004B 

00500 

C22299 

IF  \i-SW 

=  1  RflVE  ?  TO  N-SW 

CM000048 

C0  5C1 

022219' 

MJVE  999993.9Q9  TO  G-RN34'. 

- CXOOffO'48“ 

00502 

02222? 

M3VC  5n 

TO  A.  MOVE  18  TO  9. 

CM000048 

OC5C3 

022239 

PEmFjRM 

GG  ■ 

CM00004E 

3*5C4 

*22240 

IF  M-Sw 

=  1  MOVE  0  TJ  M-SW 

CM000048 

0050  5 

■  r;  2225? 

C0MPJTE ' 

GOP-UNB  =  GDP-UIT3  TT-ri 

- CM00004B 

Q05C6 

923C19 

IF  M-SW 

=  1  MOVE  ?  TO  N-SW 

CM000048 

0050  7 

323020 

M3  VF  °99«  999  TO  GilP-UNB. 

CM000048 

00508 

02 3" 3? 

.MJVE  4Q 

T 1  B. 

CM000049 

008P9 

023C40 

PF^FiJPM 

AA. 

CM000048 

00510 

023050 

IF  rl-S* 

«  I  MOVE  0  TO  M-SW 

CM000048 
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00511 
00512 
5051  3 
5051V* 
00515 
00*5 1  (> 
00517 
00513 
00519 
*0052*5 
00521 
00522*  *■ 
00523 
00524*“ 
00525 
"  0*932*6 
00527 
00528” 
00529 
00575 
00531 


00545 
0*0*5  7*0 
00547 
0*C5'45 — 

00549 


023060 
023070 
023080 
*023  5^0*  * 
023190 
023110 
023120 
*02713  0" 

C23140 
■023*1' 50”* 
023160 
*023170 
023130 
*02  3190" 
023200 
"523210 
923220 
02*3270 
023240 
0232*5*0 
024010 


C24030 
*O2'4'0V0 
.  024050 
*  02406*0 
024070 


IiUltf.Iil 


024C90 
024*155 
024110  * 
”024*170  -* 
024130 


|  T'Tj  I 


024 150 
*02  *416*5" 
024170 
*024*1*30“ 
024190 


COMPUTE  G-RN41  =  3-RN41  *  -1. 
PERFORM”  44  * 

IF  M-SM  =  1  MOVE  0  TO  M-SW 
* C3MpariE"G-*5f'r4*2 *=”0  -  G=Tm2). 
PERFORM  CC. 

“IF  'M'-S'tl  =  1*  MOVE*”!)  TO  M*=7w 
CJMPUTE  G-RN43  =  I G—RN43  *  -1  I . 
"pE'rFUr’m*  *ef.* 

if  .M-SW  =  1  MOVE  0  TO  M-SW 
COMPUTE  G-KN44  =  G-RN46  *  -l. 

IF  .M-SM  *  l  MOVE  0  TO  N-SW  _ 

”.M  i  fv  E*Wa«7.  995-fCl*  "G-RN477 - 

MOVE  51  TO  A.  MOVE  19  TO  B. 

"PERFORM  GO*.' . .  ' 

IF  M-SM  =  1  MOVE  0  TO  M-SM 


I c  N-SW  =  1  .MOVE  0  TO  N-SM 
MOVE  9357999“T'0  G11P=FS$*. 
MOVE  69  TO  B. 

PERFORM"  1 1”.  * 

IF  M-SM  =  1  MOVE  0  TO  M-SM 


PERFORM  KK. 

"■  if-m-sm  =  i*  move  o~to  m=*su - 

COMPUTE  G-RNL2  =  3-RNL2  *  -1. 

"'  pfrW'ormTc. 

IF  M-SW  -  1  MOVE  0  TO  M-SM 


NiluIJilId 


MOVE  D  TO  C. 

MUV~E  52  T0  4 .  MOVE  20  TB'"8. 

PERFORM  K. 

"**IF"M-SW  -“rMOVE*  0"T0“H-SM - - 

COMPUTE  BHAX-N-LIN  -  (BMAX-N-LIN  *  -II. 


IvIkfV Ci'SI 


MOVE  53  TO  A.  MOVE  19  TO  B. 

PE  RF0r*M""F*.* - 

IF  M-SM  =  1  MOVE  0  TO  M-SW  _ 

IF  N-SM  =  1  MOVE  9999.99  TO  BMAX-HYST  MOVE- 0  TO  N-SW. 


C HOOP 04 8 
5M0C5046 
CM000048 
' CH000049 
CM00004B 
— cwnrorjTfff 
CM000048 
— CH’000048 
CM000048 
CH000048 
CM000048 
CM000048 
CMC 00048 
CMO 00048 
CM00004  8 

CH50004B 
C MO 00 04 8 
CWOUOVB" 
CH000048 
CR000048 
.  CM000048 


CM000048 
TMOTJOWB” 
CM000048 
*TM0*05*54  8 
CK000048 


CM000048 

TWOOOTBr 

"CM000048" 

CM000048 


CKO 00048 
CHO 00048 
CM000048 
"CM00004IT” 
CM0C0048 


l'IiWT-1 


0242 10 
*0*2"472*3 
024230 
"02  4*7*5” 
024250 


||>X,"T|  ■  (l| 


PERFORM  MAKE-NEG  THRU  MOVE-DATA  2  TIMES. 

A  50  r*TO”F. 

PERFORM  MAKE-NUMERIC  THRU  MOVE-DATA  2  TIMES. 

”i  F”ivstf“~r'iravn)“To**  h-s*w - 

COMPUTE  BMAX-N-REPT  »  BMAX-N-REPT  *  -1. 


00557  025020  MOVE  99.99  TO  BMAX-N-REPT . 

”0*0  55*3  0*2  5*0  JO  M0VE“6*5  T0*"B7  , - 

00559  025040  PERFORM  MOVE-DATA  20  TIMES. 

*W5o5”"  525*0*55”  hJVE  t>  r  ill  A*7  HOVE  64  TO" B 

00561  025060  PERFORM  NN.  MOVE  77  TO  B. 

”5050*2  525075  MbKHIRM  NN. 

00563  025030  WRITE  GOT. 

”0  C  5*6*4 - 025 1*0*0 - G5“TO”*F*I*R*S7 - 

00565  025110  G-EOF. 

0057)6  ””  025*1*20  CV050”G"nT=*JN"*GlC=l 

00567  025130  STOP  RUN. 


CN000048 

'CHD00048 

CM000048 

CM0O(J0*8 

CM000048 


iililil*!.!;, 


CM000048 


CM00004B 

CM00UU4B 

CM0CC048 

CMUU0048* 

CH000048 

CM0OQO48 

CM000048 

CM000U6B 

CM000048 


61 


AEDC-TR-71-109 


nr 


00568 

026010 

READ— G ILMQRE. 

CMOC0048 

00569 

026020 

READ  G [ L- l N  AT  ENO  GO  TO  G-EOF. 

00570 

026030 

ADD  1  TO  A 

CM000048 

lilfUUi 

■■M'MW 

—  mi  1  n  ■ 

00572 

026050 

MAKE-MEG. 

CM000048 

00573 

026060 

—  1  1  1  1  1  1  1  ■ 

00574 

026070 

MOVE  SPACE  TO  G  (At  B) . 

CM000048 

00575 

00576 

026080 

IF  fi  (A.  B)  =  •*>  MOVE  1  TO  N-SW.  7 

MAKE-NUMERIC. 

CM000048 

Kliua 

3S3£&^m  i  -Mil  H  r  V*  :1  J  pa 

■  1  1  1  1  1  1  1  ■ 

00578 

026100 

IF  G  (A,  B)  =  'N*  OR  G  (A,  BI  =  »A»  MOVE  1 

TO  N-SH. 

CM00004B 

00579 

025110' 

mqvT-OaTa. 

I  I TTT1  1  ■ 

00580 

026120 

MOVE  G  (A.  BI  TO  GIL  (Cl. 

" 

CM000O48 

00581' 

026130 

ADO  1  TO  B.  A00  1  TO  C.  “ 

CM000048 

00582 

026140 

DMAKE-NEG. 

CM000048 

■'HHl'l 

1  rV  f  :  1  nLCIM  I  f 1 11  J  dB  IB  ( t  ■ '  tl.i  * 

CM000046 

00584 

026160 

MOVE  SPACE  TO  G  (A.  BI. 

CH000048 

00585 

00586 

026170 

IF  G  (A,  BI  *  MOVE  1  TO  N-SH. 

0MAKE-NUMERIC. 

CM000048 

—  1  ■  ■  1  WJMmwMH.fll.Ml.MMTHi 

[<  M'Mlfl 

00588 

026190 

IF  S  (A.  BI  =  *N*  OR  G  (A,  BI  *  'A'  MOVE  1 

TO  N-SH. 

CM000048 

CMH00048 

00590 

026210 

MOVE  G  (A,  BI  TO  GIL  101. 

CM000048 

00591 

026225" 

ADD  1  Ttnn  ADD  1  TO  0. 

MTU  1  1  ■ 
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1 


00001 

01 

IDENTIFICATION 

DIVISION. 

CMOOO026 

00002 

001010 

PROGRAM- 1 0.  1 CM000023 ' . 

CMO 00023 

00003 

**  04 

ENVIRONMENT  DIVISION. 

CM00002®- 

00004 

05 

CONFIGURATION  SECTION. 

CMO 00020 

00005 

06 

SOURCE-COMPUTER 

. IBM-360  H50. 

CM000020 

00006 

07 

OBJECT-COMPUTER 

.  IBM-360  H50. 

CM000020 

■•TOMi 

03 

M  1  II  1  1 1 1 ■ 

00008 

09 

FILE-CONTROL. 

CM00002C 

00009 

10 

SELECT  A-FILE  ASSIGN  • AF ILEREC  *  UTILITY. 

CM00002C 

00010 

11 

SELECT  B-FILE  ASSIGN  •BFIL'EREC1  UTILITY. 

CM0C0C2G 

00011 

12 

SELECT  C-FILE  ASSIGN  * CFI LER EC •  UTILITY. 

CM000020 

00012 

1030 

SELECT  AOUT  ASSIGN  'AOUTREC*  UTILITY. 

KliUl 

00014 

1050 

SELECT  COUT  ASSIGN  'COUTREC*  UTILITY. 

00015 

**  01 

DATA  DI VI  SION. 

CM5W020- 

00016 

02 

FILE  SECTION. 

CM000020 

00017 

03 

FD 

A-FILE 

record  Contains  so  characters 

CM000020 

00018 

04 

LABEL  RECORDS  ARE  STANOARO 

CM00002C 

05 

—  INI  1  1  1  ■ 

00020 

06 

BLOCK  CONTAINS  I  RECORDS 

CM0C0C2  C 

00021 

07 

CATa"  RECORD  IS  A-REC. 

CM003"02"0“ 

00022 

03 

01 

A-REC. 

CM000020 

00023 

09 

02  FILLER 

PICTURE  X(5l. 

00C24 

10 

02  FILLER 

PICTURE  9. 

ll 

"02  Filler 

00025 

14 

FD 

B-FILE 

RECORO  CONTAINS  80  CHARACTERS 

CM00002C 

00027 

15 

LABEL  RECdRO'S  ARE  STANDARD 

CmS"CO(52C  ' 

00028 

16 

RECOROING  MODE  IS  F 

CMO 00 020 

00029 

17 

bloCk  Contains  i  REcordS 

CM000020 

00030 

18 

OATA  RECORD  IS  B-REC. 

CM000020 

1 9 

01 

1  III  HIM 

00032 

**  19 

02  FILLER 

PICTURE  XI4I. 

oooTJ 

20 

02  FILLER 

“PICTURE  0. 

00034 

21 

02  FILLER 

PICTURE  XI75I. 

00035 

**  01 

FD 

C-FILE 

RECORC  CONTAINS"  80  CHARACTERS 

CM000020 

00036 

02 

LABEL  RECORDS  ARE  STANDARD 

CM000020 

■m«t»m 

03 

M  1  1  1  1  1  1  1  ■ 

00038 

04 

BLOCK  CONTAINS  1  PECORDS 

CM000020 

“00039“ 

05 

CAT  A  RECORD  IS  C-REC. 

070007)20 

00040 

06 

01 

C-REC.’ 

CMO  00  020 

00041 

45 

PICTURE  X I 41 . 

00042 

451 

02  FILLER 

PICTURE  9. 

■  'WITH 

U2  Filler 

00044 

001060 

FD 

AOUT 

RECORD  CONTAINS  80  CHARACTERS 

CM000C23 

00045 

001070 

LABEL  RECORDS  ARE  STANDARD" 

OTOOOC23 

00046 

001090 

RECOROING  MODE  IS  F 

CMO  00023 

00047 

001090 

BLOCK  CONTAINS  45  RECORDS 

CM000023- 

00048 

001100 

OATA  RECORO  IS  ACARD. 

CM000023 

■•PKLl;] 

TTI 

AC  AR  D« 

CM000023 

00050 

**  1120 

02  FILLER 

PICTURE  XI 3 1 • 

“00051 

1121 

“02  FTTTFr" 

ptctoret; 

00052 

1122 

02  FILLER 

PICTURE  XI76I. 

00053 

001130 

1=0 

B'OUT 

“RECORD  CONTAINS  80  CHARACTER'S 

CM000023 

00054 

001140 

LABEL  RECOROS  ARE  STANOARO 

CM00002  3 
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2 


00055 

C01 150 

RECOROING  MODE  IS  F 

CM000023 

00056 

001 160 

8LC1CK  CONTAINS  45  RECORDS 

C  MO  00023 

00057 

001170 

CATA  RFCORD  IS  BfARD. 

C  M000023 

00053 

001130  01 

BCAR.O. 

CM000023 

0005*3 

**  1180 

02  FILLER  PICTUPE  XI41. 

00060 

L 181 

02  FILLER  PICTURE  9. 

00061 

1182 

02  FILLER  PICTURE  XI 75  I . 

"00062 

001200  FD 

Cbuf  RECORO  CONTAINS  80  CHARACTERS 

CM000023 

0006  3 

001210 

LABEL  RECORDS  ARE  STANDARD 

CM000023 

00064 

001223 

RECOROING  MODE  IS  F 

C  MO00O23 

00065 

001230 

BLOCK  CONTAINS  45  RECORDS 

CM000023 

0C066 

"  "001240 

CATA  RECORD  IS  CCARD. 

CM000023 

00067 

«*  2010  01 

C-CARD. 

00068 

2020  " 

02  FILLER  PICTURE  X(4). 

00069 

2021 

02  FILLER  PICTURE  9. 

00070 

2022 

02  FILLER  P I CTURF  XI75). 

00071 

»«  19  WORKING-STORAGE  SECTION. 

CM000020 

00  072 

20 

77  LN-CT  PICTURE  SR9  COMPUTAT  IflNAL-3  VALUE 

ZERO. 

'''CHOOO626 

00073 

002030  PROCEDURE  01  VISION. 

C MO 0002 3 

"00079 

002040  START,  OPEN  INPUT  A-FILE.  OPEN  IN->UT  B-FILE.  OPEN 

~ iTTput  c-f  i  le  • 

"  C MO 00023  "" 

00075 

002050 

UPEN  OUTPUT  AOUT.  OPEN  OUTPUT  BOIJT.  OPEN  OUTPUT  COUT. 

CH000023 

00076 

002060  A- 

READ.  READ  A-FILE  AT  END  GO  TO  ft-ENTRY*. 

00077 

002070 

WRITE  ACARO  FROM  A-R  FC*  Gfl  Tfl  A-READ# 

CM000023 

00073 

C02C30  B- 

ENTRY.  READ  R-FILE  AT  END  GO  TO  C-ENTRY. 

CM000023 

00079 

002090 

WRITE  9CAR0  FROM  B-REC.  GO  TO  8-ENTRY. 

CMD00023 

00080 

C021GO  C- 

ENTRY.  READ  C-FILE  AT  FND  GO  to  END'l  T. 

“CM060C23 

00031 

002110 

WRITE  C-CARD  FROM  C-REC.  GO  TO  C-ENTRY. 

CM000023 

0003  2 

iaii  i  ■  ii'ii 

00083 

002130 

CLUSE  BOUT.  CLOSE  COUT. 

CM000023 

00089 

002140 

'STOP  RUN. 

""CM00002J- 
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TTOOO'I - Of1'  1 01 — fDENT  1 F  I C  AT  I  ON"  OTVTS ITTK - 

00002  CO 10 2  PRJGRAN-IO.  'CMCCOOSO* . 

00003  DC  10 3  AUTHOR  .  USCR- ROS'f  7  ’ 

00004  -10104  INSTALLAT1UN.  ARQ  INC  TULLAHOHA  TENN. 

"oooo5  0C105  Sate-written.  nc‘T" 16,  1957. 

00006  OC105  OAT  E-CUMPI LEO.  OEC  14,1968 

o5  50  7  TO  10 !  SECURITY. 

OOOC3  CC103  REMARKS.  PROGRAM  SELECTS  MOST  RECENT  TRANSDUCER  FROM  GILMORE. 

~ 00009'  _ 05155 — EN7IR“0NMENT~DTVT5T0N4 - - - 

00010  CC110  CONFIGURATION  SECTION. 

OOOfl”  Cff-lTl  S5U"rC E^COMPuTE'R .  rBM-360  H5TT  : 

00012  00112  OflJECT-CC'MPUT?R.  IBM-360  H50 . 

“~055l 3  QUITS  INPUT-OUTPUT  SECTION . 

00014  00114  FILE-CONTRUL. 

"OOOl'S - 501  l'5‘ - SELECT CTT^TN  ASSI5N 'TOOT' — UTTCTTY7 - 

00016  00116  SELECT  GIL-OUT  ASSIGN  *0001'  UTILITY. 

■  o  Qo  1 7 '  curiT  ‘  os  rs"o“ivis  i  ovr - 

00013  001 l B  FILE  SECTION. 

'  TOO  19 - 052T9 — R5 — GIL-IN — SETlRUTNrcrT - BTDCX- nTECUPHTS - RTC0RU~7'Zf7 - 


CMdOOOSO 

CM000050 

5X550050 

CM000050 

CW55555" 

CH0C0050 

CM000050 

CM00005Q 

CMO 00050 

CM00005Q 

CM000050 

CM000050 

CHOC005o 

CMOOCOSO 
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00153  019140  02  FILLER  PICTURE-  XX  VALUE  SPACE. 

.0.0 15.4 _ 01.9150 _ 02..  LD07 _ PICTURE  ..XX, _.  _..  _  _ 

00155  019160  02  FILLER2  PICTURE  XX  VALUE  SPACE. 

00156  019170 _ 02 _ L00.8 _ P1C1URJE _ &L9J., _ 

00157  019180  02  FILLER  PICTURE  XX  VALUE  SPACE. 

.0.015.9 _ 019.190.  ..,..02 _ L0D9 _ PICTURE..  XX, _ _ 

00159  019200  02  FILLER3  PICTURE  XX  VALUE  SPACE. 

0016.0 _ 019210 _ 02 _ LOO  10..  _PICTURE__X<9)_. _ 

00161  019220  02  FILLER  PICTURE  XX  VALUE  SPACE. 

0.0.162 _ 019230  02  LDD11  PICTURE  XX. _ 

00163  019240  02  FILLER4  PICTURE  XX  VALUE  SPACE. 

0.01.64 _ 0192 5.0 _ 02. ...  ULO 1 2  PICTURE XI 2.)., _ 

00165  020010  02  FILLER  PICTURE  XX  VALUE  SPACE. 

O  016.6 _ 02QQ20 _ 0  2_LJQJ0U.. _ PI  C.T.UR  E_.XX, _ 

00167  020030  02  FILLERS  PICTURE  XX  VALUE  SPACE. 

00168.  Q2QD40  _„...02  .  LDD.L4  _  PICTURE  „X(9J,  ,  .  _ _ 


_ CH000095. 

CM000095 

_ CM000095.. 

CH000095 

_ CM000095 

CH000095 

_ CH000095 

CM000095 

_ CM000095. 

CH000095 

_ CM000095 

CH000095 

_ CM000095. 

CM000095 

_ CMQQ0Q9.5 

CM000095 

_ CW000.095. 

CH000095 

_ CM000095. 

CH000095 
...  _ _ _  .  .£1*000095 
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00169 

020050 

02 

FILLER 

PICTURE 

XX  VALUE  SPACE.  . 

CM000095 

00170 

020060 

02 

L0D15 

PICTURE 

XI 10) . 

CM000095 

00171 

120070 

02 

FILLER 

PICTURE 

XX  VALUE  SPACE. 

CM000095 

00172 

020080 

02 

L0016 

PICTURE 

XI 14). 

CM000095 

00173 

020390 

C2 

FILLER 

PICTURE 

XXX  VALUE  SPACE.  _ 

.  .  ...  CM0Q0095 

00174 

01 

SVT0P3 

00175 

0? 

f  iller 

PICTURE 

X  VALUE  SPACE. 

00176 

02 

FILLER 

PICTURE 

X 125)  VALUE  'NO  RANGE  PORT  01 

PORT 

O'. 

00177 

02 

FILLER 

PICTURE 

X 1  25 )  VALUE  '2  ..P.ORT  03 _ MR I  04. _ 

P' 

00178 

02 

FILLER 

PICTURE 

X 1 25)  VALUE  'ORT  05  PORT  06 

PORT 

O'. 

00179 

02 

FILLER 

PICTURE 

.XI  25)  VALUE  '7  PORT  .08..  .PDWL.D3.._ 

P' , _ 

00180 

02 

FILLER 

PICTURE 

X 1 26 )  VALUE  'ORT  10  PORT  11 

PORT 

12'. 

00181 

02 

FILLER 

PICTURE 

XI  5).  .  VALUE.  SPACE.* _ 

00182 

01 

svropi. 

00183 

02 

FILLER 

PICTURE 

XI 36)  VALUE  SPACE. 

00184 

02 

FILLER 

PICTURE 

XI 25)  VALUE  'SCANNER  VALVE  ASSIGNMENTS'. 

00185 

02 

FILLER 

PICTURE 

X(33)  VALUE  SPACE . . 

00186 

02 

FILLER 

PICTURE 

Xlll)  VALUE  'SHEET  OF'. 

00187 

02 

FILLER 

PICTURE 

XI 27)  VALUE  SPACE.. 

00188 

01 

SVT0P2 • 

00189 

02 

FILLER 

PICTURE 

X  VALUE  SPACE. 

C0190 

C2 

FILLER 

PICTURE 

XI 12)  VALUE  'SV  OUCER  '. 

00191 

02 

FILLER 

PICTURE 

X 1 1 1 9  )  VALUE  SPACE. 

00192 

01 

SVLINE . 

00193 

02 

FILLER 

PICTURE 

X  VALUE  SPACE. 

00194 

02 

SVNO 

PICTURE 

99. 

00195 

02 

FILLER 

PICTURE 

XI 17)  VALUE  •  VAC  REF 

•  . 

00196 

02 

P0RT2 

PICTURE 

XI 10)  . 

00197 

C2 

P0RT3 

PICTURE 

XIIO). 

00198 

02 

PGRT4 

PICTURE 

XllOI. 

00199 

02 

PORTS 

PICTURE 

XIIO).  .....  .  _ 

00200 

02 

P0RT6 

PICTURE 

XIIO). 

00201 

02 

P0RT7 

PICTURE 

XI  10)  . 

00202 

02 

PORTS 

PICTURE 

XI 10)  . 

00203 

02 

P0RT9 

PICTURE 

XI 10)  . 

00204 

02 

PORTIO 

PICTURE 

XI  10)  . 

0020  5 

02 

POR Ill 

PICTURE 

XI  10)  . 

_  ___ 

00206 

02 

POP  T12 

PICTURE 

XI 10!  . 

00207 

02 

FILLER 

PICTURE 

XX  VALUE  SPACE. 

00208 

022080 

01 

HEAOMCQO. 

CM000095 

00209 

022090 

02 

HCOO 

PICTURE 

XI 12 )  VALUE  '  SCAN 

CM000095 

00210 

022100 

02 

FILLER 

PICTURE 

XI 113)  VALUE  'PARAMETER  UNIT 

COOE 

LDADCM000095 

00211 

02211C- 

1 

CODE 

LOAQ 

COOE  LOAD.  CODE  .LOAD.. 

COOE  . 

.L0ADCH000095 

C0212 

C22120- 

• 

REFERENCE 

REMARKS' . 

CM000095 

00213 

022130 

02 

FILLER 

PICTURE 

X 17 )  VALUE  SPACE. 

CM000095 

00214 

023010 

Cl 

DOAS-HO. 

00215 

02  3020 

02 

FILLER 

PICTURE 

X148 I  VALUE  SPACE. 

30216 

023030 

02 

FILLER 

PICTURE 

X131)  VALUE  'DIGITAL  DATA  ACQUISITION  S 

0021 7 

023C4C- 

•YSTEH' . 

00218 

023050 

02 

FILLER 

PICTURE 

X { 32 )  VALUE  SPACE. 

00219 

023060 

02 

FILLER 

PICTURE 

X I l 4 )  VALUE  'SHEET  OF  R 

fl  m 

00220 

023070 

02 

FILLER 

PICTURE 

XI 7)  VALUE  SPACE. 

00221 

023180 

01 

MC- 

HD. 

00222 

023190 

02 

FILLER 

PICTURE 

X I 53  I  VALUE  SPACE. 

00223 

023200 

02 

F1XR 

PICTURE 

XI 3? )  VALUF  'MICROS AOIC  DATA 

REOUCT ION 

00224 

023210- 

1 

00225 

023220 

02 

F ILLER 

PICTURE 

X I 26 )  VALUE  SPACE. 

/f 
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00226 
00227 
0022  B 
00226 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00238 
00239 
00240 
00241 
00242 
00243 
00  244 
00245 
00246 
00247 
00248 
00249 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00258 
00259 
00260 
30261 
00262 
0026  3 
00264 
00265 
00266 
00267 
00268 
00269 
00270 
00271 
00272 
00273 
002.74 
00275 
00276 
00277 
0C278 
00279 
00280 
00281 
00282 


.023230 _ 02.  FILLER  PICTURE 

023240  02  FILLER  PICTURE 

024010  01  .  0UM-HEA0. 

024020  02  SCF  PICTURE 

024030-  'ON  '. 

030010  PROCEOURE  01VISI0N. 
030021  OPEN  OUTPUT  LIST. 

03 C 100  OPEN  INPUT  HOOK. 

030110  OPEN  INPUT  OCARO. 

030130'  PERFORM  SPACE-TB. 

..0.3.1010  ,RO-HK. 


xt  14)  .value  .'.  sheet. _ tif _ ri 

XI 71  VALUE  SPACE. 


X 1 32  I  VALUE  'SCANNER  VALVE  DATA  REOUCTI 


CN000095 

CH000095 

CM 000 09 5 
CM000095. 


031020  READ  HOOK  AT  ENO  GO  TO  HK-ENO.  CM000095 

031070  IF  HR  1  =  'S'  ANO  HR2  =  'O'  OR  '1*  OR  '2'  OR  ■  3  •_  _0R_!.4.'_0R  _  .  CH000095 

031080  *5*  OR  *6*  OR  '7'  OR  'S'  OR  '9'  GO  TO  SV-ROUTE.  CM000095 

031090..  .  IF  HR  1 2  =  '00*  GO  TO  MN6.  .  .  _ CM000095.. 

0  31  lie  GO  TO  RO-HK.  CM000095 

032200  HN6.  _ _ CM000095  . 


032201 

032210 

032220 

032230 

032240 

032250 

033020 

G33110 

03312C 

C33140 

049010 

049020 

049C30 

C49C4G 

049050 
049060 
059.710 
050311 
05CO2C 
C 6 33 30 

050049 
C5QC5Q 
05007'' 
050030 
050090 
0501CC 
050110 
050120 
C53130 
050140 
050150 
053140 
05017C 
059133 
030190 
C  5020C 


Ana  1  RHR45  GIVING  K. 

IF  HHR 3  NOT  =  0 

MOVE  HP AR  TO  003  1HHR3.KI. 

CLOSE  OCARD. 

OPEN  INPUT  DCARO. 

MN6  A. 

READ  OCARO  AT  ENO  GO  TO  MN1Z. 

IF  DR  1  NOT  =  HPAR  GO  TO  MN6A. 

IF  0R7  *  •  'GO  TO  HN1Z. 

GO  ,TU  OO-ROUTE.' 

MN1Z. 

DISPLAY  'OATA  REO.  N/A  '. 

GO  Tfl  RQ-hk. 

SV-ROUTE. 

IF  HRDZ3  >  60  OISPLAY  *4902*  HROOUT 
HOVE  HR023  TO  J. 


GO  TO  RO-HK. 
GO  TO  RD-HK. 


IF  RHR45  >  12  OISPLAY  *4904'  HROOUT 
MOVE  RHR45  TO  K. 

HOVE  HPAR  Tn  SV3  U.  KJ 
GO  TO  RO-HK. 

DU- ROUTE. 

IF  HHR 3  =  0  GO  TO  RO-HK. 

IF  HHR3  <  8  MOVE  HHR 3  TO  J 

ELSE  OISPLAY  '5003'  HROOUT  GO  TD  KD-HK. 

IF  RHR45  >  63  OISPLAY  '5004'  HROOUT  GO  TO  RD-HK. 
ADO  l  RHR45  GIVING  K. 

IF  RP7B  =  'O'  OR  ' I '  OR 


1 2 '  OR  '3'  OR  '4'  OR  *5'  OR  '6' 


OR  •  7 ' 
GO  TO  00R3. 


OR  '8'  OR  *9*  GO  TO  DDRl ». 


DOR  1  . 
IF 


RK7C  =  'O'  OR  'l'  OR 
OR  '7'  OR  .'8'  OR  '9' 


•2'  OR  *3'  OR 
GO  TO  0DR2. 


•4'  OR  '5'  OR  '6' 


00K3. 

IF  OR 7 


IPC'  MOVE  'IN  PLACE  CALS'  TO  0016  IJ,  Kl 
GO  TO  DDR9. 

IF  0R7  =  'SPC*  HOVE  'SPECIAL  CALS'  TO  0016  [J«  K» 
GU  TO  0DR9. 

IF  RR7B  =  • R '  AND  RR7C  =  'N*  GO  TO  D0R4. 

DISPLAY  '5019*  0R7  GO  TO  RO-HK. 

00R4. 


CM000095 

_ CM000095 

CM000095 
...  CM000095 
CM000095 
CM000095 
CM000095 

CM000095 
..  CM000095 
CM000095 
CM000095 . 
CM000095 

CH000095 

_ CH000095 . 

CH000095 


CM000095 


CH000095 

CM000095 

CM000095 

CM000095 

CH000095 

CH000095 

CM000095 

CM000095 

CM000095 

CM000095 

CH000095 

CM000095 

CH000095 

CM000095 
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00283  050210  OPEN  INPUT  CFILE  • 

00284  050220  D0R5. 

00285  050210  RE  AO  CFILE  AT  ENO  GO  TO  OOCENO. 

0023ft  05024C  IF  CO  NOT  =  '0*  GO  TO  D0R5. 

00287  05C750  IF  HP AR  NOT  =  C5  GO  TO  DDRS. 

00288  051010  IF  RR7A  =  •+• 

00289  051020  HOVE  '26'  TO  005  ( 0«  Kl 

002^0  051030  MOVE  *27'  TO  D07  IJ,  K> 

00291  C51040  HOVE  '28'  TO  009  IJ,  Kl  . 

00292  051050  MOVE  '29'  TO  0011  IJ,  K1 

00291  051060  HOVE  *30'  TO  0013  IJ,  K) 

00294  C51070  GO  TO  00R6. 

00295  051080  IF  RR7A  = 

00296  051C90  MOVE  *26'  TO  005  IJ,  Kl 

00297  051100  .  .  MOVE  *25'  TO  007  IJ,  Kl  . 

00298  051110  MOVE  *24'  TO  009  IJ,  Kl 

00299  05112C  HOVE  *23*  TO  0011  IJ,  Kl 

00300  051130  MOVE  «2 2'  TO  0013  IJ,  K) 

00301  05114C  MOVE  1  TO  NEG-SW 

00392  05115C  GO  TO  OOR6. 

00303  051160  DISPLAY  '5116'  0R7  GO  TO  .OOCENO. 

003C4  051170  D0R6 . 

00305  051180  IF  CIO  =  SPACE  GO  TO  00R7. 

00306  051190  MOVE  CIO  TO  006  IJ,  Kl 

00307  051200  RE  AO  CFILE  AT  ENO  GO  TO  OOCENO. 

00308  051210  MOVE  CIO  TO  008  (J,  Kl 

00309  051220  READ  CFILE  AT  ENO  GO  TO  0DCEN1). 

00310  051230  MOVE  CIO  TO  0010  IJ,  Kl 

00311  05124C  REAO  CFILE  AT  ENO  GO  TO  OOCENO. 

00312  C51250  MOVE  CIO  TO  DD12  I J,  K) 

00313  052010  REAO  CFILE  AT  ENO  GO  TO  OOCENO. 

00314  052020  MOVE  CIO  TO  0014  IJ,  Kl 

00315  052030  GO  TO  00R8. 

00316  052040  0DR7. 

00317  052050  IF  Cll  =  SPACE  01SPLAY  *5205'  C7  GO 

00318  052060  MOVE  Cll  TO  006  IJ,  K». 

00319  052070  READ  CFILE  AT  ENO  GO  TO  OOCENO. 

00320  052080  HOVE  Cll  TO  008  IJ,  Kl. 

00321  052090  REAO  CFILE  AT  END  GO  TO  OOCENO. 

00322  052100  MOVE  Cll  TO  0010  IJ,  Kl. 

00323  C52110  REAO  CFILE  AT  ENO  GO  TO  OOCENO. 

00324  052120  MOVE  Cll  TO  0012  (J,  Kl . 

00325  .  05213.0  READ  CFILE  AT  ENO  GO  JO.OOCENQ., _ 

00326  052140  MOVE  Cll  TO  0014  IJ,  Kl. 

00327.  052150  OOR8.  .  _  _ 

00328  052160  HOVE  C11B  TO  D04  (J,  Kl. 

00329  053110  CLOSE  CFILE. 

00330  **052170  00R9. 

00331  0521BC  .  IF  NEG-SW  =  1  MOVE  0  TO  NEG-SW 

00332  052190  HOVE  ■-•  TO  OOSN  IJ,  Kl. 

00333  C5301C  .  IF  0R6  =  'CP1  HOVE  'CELL  PRESS'  TO 

00334  053020  IF  0R6  =  *BA»  HOVE  'BAROMETER  •  TO 

00335.  .  053030  J _ IF  0R6_=  'VR*  HOVE  'VAC.  REF.  •  TD 

00336  053040  IF  DR6  =  *RT'  MOVE  ’RTT  •  TO 

.00337  .  053050.  .  If  DR6  =  'CA*  HOVE  'CA-1500-F  •  TO 

00338  053060  IF  0R6  =  'CC'  MOVE  'CC-1500-F  '  TO 

00339  053070  .  .  JF  0R6  =  1C  '  MOVE  ■  LC-JSJO-F  ■  TO 


TO.  OOCENO... _ 


0015.  I  J,  Kl 
0015  IJ,  Kl 
0015  _(.Jr_.K). 
0015  (J,  Kl 
0015  IJ,  Kl 
0015  IJ,  Kl 
00.15  I  J,_K) 


G0-.TO. 
GO  TO 
_£Q_LQ_ 
GO  TO 
GO.  TO 
GO  TO 
--GO.TP 


CH000095 

CM000095 

CM000095 

_ CH000095 

CH000095 
. .CM000095 
CM000095 
_  CH000095 
CM000095 

_ CH000095 

CH000095 

_ CM000095 

CH000095 
..  CM000095 
CM000095 

_  CM000095 

CM000095 
CM000095 
CM000095 
CH000095 
CH000095 
CH000095 
CH000095 
CH000095 
CM000095 
CH000095 
CM000095 
CM000095 
CH000095 
CM000095 
CM000095 
.  CH000095 
CM000095 
_  CH000095 
CH000095 
CH000095 
CH000095 
CM000095 
CH000095 
CM000095 
CH000095 
_CM0.0_00.95.. 
CM000095 
_  CM000.0.95. 
CM000095 
_  CM000095 
CH000095 
.  ..  CM000095 
CH000095 
.  .  CN000095 . 
CH000095 

_ CM000095 

CM000095 

CM000095 

CH000095 

.CM0000.95. 
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.00340. 

053085. 

IF  0R6  =  *  EV*  MOVE  • 

EVENT 

00341 

053090 

ODRX. 

00342 

053100 

MOVE  HPAR  TO  003 

_<_J.l 

K) 

00343 

053120 

GO  TO  RO-HK. 

00344 

053130 

OOCENO. 

00345 

053140 

0 1 SPLAY  *5314* 

00346 

053150 

CLOSE  CFILE 

00347 

053160 

GO  TO  RO-HK, 

00348 _ 

.  0540J.O_aORj?.._...  _  .  ... 

00349 

054020 

IF  R0R78  =  08  GO 

TO 

00R2A 

0035.0_ 

.05403.0 _ IC_R0R78  =  .16  GQ 

TO 

00R2B 

00351 

054040 

IF  R Oft 78  =  24  GO 

TO 

OOR2C 

_003.52_ 

.054050. 

_ IF  R0R7B  .=  32  GO 

TO 

00R20 

00353 

054060 

IF  RDR7B  =  40  GO 

TO 

00R2E 

00354 

.  Q5.4O70. 

..  IF..R0R78_=  8Q  .GO 

TO 

D0R2F 

00355 

054080 

OOR2Z . 

_ •  _T0  D015.  I.Jt.K)  . _ CHO 00095 

CM000095 

_  CM000095 

CM 000095 

.  CH000095 

CM000095 
C  MO  0009  5 
CM000095 
CM000095 
CM000095 
.  CM000095 

CM000095 

_  CM000095 

CM000095 
.  ..CM000095 
CM000095 


30356 _ 0540.90.  ..  OISPLAV  '5409*  DR7 _ GO-TO  .RO-HK.. 

00357  054100  00R2A. 

00358  _  054110  _  IF  RR7A  =  .  . 


_ CM000095 

CM 000095 
_  _  CM000095 


00359 

054120 

MOVE  •  2*  TO  005  (J.  K) 

CM000095 

00360 

C54130 

MOVE  '0  MV  TO  006  (J.  Kl 

CM000095 

00361 

054140 

MOVE  «  3*  TO  D07  (J,  Kl 

CM000095 

.  0036.2  ._ 

.054.150. 

_ MOVE  .'8  MV*  TO  008.  (J,  Kl 

CM000095 

0036  3 

054160 

GO  TO  DOR 20. 

CM000095 

_  00364.. 

_ 05  4 1  TO 

_ IF..RR7A  =  •-•. 

_ _ _ _ _ CM000095 

00365 

054180 

MOVE  •  2*  TO  005  IJ,  Kl 

CM000095 

00366 

0_5419.0 

«*OVE_*0  MV*  TO  0D6  (J,  Kl 

CM000095 

00367 

054200 

MOVE  ■  1*  TO  007  (J,  Kl 

CM000095 

00368 

0542  LC 

MOVE  '-8  MV  TO  008  IJ.  Kl 

CM000095 

00369 

054220 

GO  TO  O0R2O. 

CM000095 

00370 

054230 

GO  TO  D0R2Z. 

.  _  .  XM000095 

00371 

055010 

00R2B. 

CM000095 

00372 

055O2P 

IF  RR7A  « 

CM000095 

00373 

055030 

MOVE  •  5*  TO  005  (J,  Kl 

CM000095 

..00374 

055040. 

MOVE  '0..MV  .  TO  .006.  JJ,  Kl 

CM000095 

00375 

055050 

MOVE  ■  6*  TO  007  I J,  Kl 

CHO 00095 

O0376._ 

..05.5060. 

MOVE  •  16  MV«  TO  008  M.  Kl 

CM000095 

00377 

055070 

GO  TO  0DR20. 

CM000095 

.003.78 

..055010. 

...  l£_BR7A  =_ 

CM000095 

00379 

055090 

MOVE  ■  5'  TO  005  M.  Kl 

CM000095 

..00380.. 

.05510.0 

.  ...  MOVE  *0  MV  TO  006  (J,  Kl  _.  .  . 

....  ...  CM000095 

00381 

055110 

MOVE  ■  4*  TO  007  IJ,  Kl 

CM000095 

.00382 

.055120 

.  .  MOVE.  *-.16  MV..T.O.  DOB  (J,  .KJ  ... 

r.M000095 

00383 

055130 

GO  TO  DOR 20. 

CM000095 

-00184 _ R151.4.Q. 

_ GO _ IQ.  0QR21# 

.  .  _  _CM000095. 

00385  055150  DDR2C. 

.003  86 _ 05 5 1 00 _ LE_RR  7.  A 


00387  055170 

.0038.8 _ 05.518JCL . 

00389  055190 

00390  055700 


00391 


055210 


MOVE  ■  8'  TO  005  Mi  Kl 
..MOVE  •0.NV..T0..D06  .(J,_  K)  _ 
MOVE  •  9'  TO  007  M.  Kl 
MOVE  '24  MV  TO  008  M.  K I _ 


GO  TO  00R20. 


CM000095 

_ CM000095 

CM000095 

_ CM000095 

CM000095 

_ CM0000.95. 

CM000095 


_00392_  -053220 _ IE_RElA.3._’.i! _ 


00393  055230 

.0.03.9.4 _ 03524Q. 

00395  055250 

00396  ...05601Q. 


MOVE  ■  8'  TO  005  (J,  Kl 
...  M0VE..?.0.  MV.'.T.O  006.  M>  .Kl... 

MOVE  •  7*  TO  007  IJ,  K) 

_  MOVE  .'-24.  MV*  TO  008  M>  Kl 


_CM000095 
CM000095 
.  CM000095. 
CM000095 
. CK000095 


:74 


AEDC-TR-71-108 


s' 


00397 

056.020. 

GQ  TO  D0R.20.. . .  .  .. 

...CM000095 

00398 

056030 

CO 

TO  00R2Z. 

CM000095 

00399  056040  DOR 20.  .  ..  .  .  _ 

CM000095 

00400 

056050 

IF 

RR7A  = 

CM000095 

00401 

-05.6Q.6.O_ 

MOV.E  'H*  TO. 005  Ut  .K 1 _ _  ._ 

CM000095 

00402 

056070 

MOVE  *0  MV  TO  006  IJ,  K) 

00403 

-05603.0. 

MOVE  '12*  TO  007  (J.  X) 

CM000095 

00404 

056090 

MOVE  *32  MV*  TO  008  (J.  KI 

CK000095 

00403 

056100 

GO  TO.OOR20. _ ; _ 

CM000095 

00406 

056110 

IF 

RR7A  = 

CM000095 

00407 

056120 

MOVE  'll*  TO  005  IJ.  KI  _ 

CM000095 

00408 

056130 

MOVE  '0  MV  TO  006  (J«  KI 

CM 000095 

00409 

056140 

_  HOVE  '.101.  TO.  007  .I.J..KI  _ 

CM000095  . 

00410 

056150 

MOVE  '-32  MV  TO  008  IJ,  KI 

CM000095 

004  U 

056160 

GO  TO  O0R20. 

CM000095 

00412 

056170 

GO 

TO  00R2Z. 

CM000095 

-.00413  . 

05.6180 

00R2E. 

_ CH000095 

00414 

056190 

IF 

RR7 A  = 

CM000095 

00415 

056200 

MOVE  '14'  TO  005  (J,  KI  . 

.  ..  .  ,  _ ...  . 

CM000095 

00416 

056210 

MOVE  '0  MV  TO  006  (J,  K) 

' 

CM  000095 

00417 

0562.20 

HOVE  M5*  TO  007  IJ.  KI 

CM000095 

00418 

0562  30 

MOVE  '40  MV  TO  008  1  J,  Kl 

CM000095 

00419 

056240 

GO  TO  00R20. 

CM000095 

00420 

057010 

IF 

RR7 A  = 

CM000095 

00421 

057020 

MOVE  '14'  TO  005  IJ,  KI 

00422 

057030 

MOVE  '0  MV  TO  006  (J.  KI 

CM000095 

00423 

057040 

MOVE  M3*  TO  005  IJ,  KI 

CM000095 

30424 

057050 

MOVE  '-40  MV  TO  008  IJ,  KI 

4 

CM0D0095 

.00  425 _ 

057060 

GO  TO  OOR  20.,  . 

' 

CM000095 

00426 

057070 

GO 

TO  0DR2Z. 

CM000095 

00  427 

057080 

00R2F. 

CM000095 

00428 

057090 

IF 

RR7A  « 

CM000095 

.00.429- 

057100 

HOVE  '17'  TO  005  IJ,  KI 

CM000095 

00430 

057110 

MOVE  '0  MV '  TO  006  IJ,  KI 

CH000095 

00431 

057120 

MOVE  '18'  TO  007  IJ,  Kl 

CM000095 

00432 

057130 

MOVE  '80  MV  TO  008  IJ,  Kl 

CM000095 

00433 

057140 

GO  TO  OOR20. 

CM000095 

00434 

057150 

IF 

RR7A  =  '-' 

CM000095 

00435 

057160 

MOVE  • 1 7 •  TO  005  1 J,  Kl 

CM000095 

00436 

057170 

MOVE  '0  MV '  TO  006  (J,  Kl 

CM000095 

00437 

057130 

MOVE  '16*  TO  007  IJ,  KI 

CM000095 

00438 

057190 

MOVE  '-80  MV  TO  D08  (J,  Kl 

CM000095 

.0.04,3.9 _ 

-05.7.200. 

..GO  TO  OOR 20.  _  _ _ 

_  .... 

.  CM000095 

00440 

057210 

GO 

TO  I3DR2Z. 

CM000095 

00441 

057220 

DOR 20. 

CH000095 

00442 

057230 

MOVE  'MV  CALS'  TO  0016  (J.  KI. 

CM000095 

00443 

057240 

GO 

TO  00R9. 

CM030C95 

00444 

062010 

HK-ENO, 

CM000095 

00445 

062020 

CLOSE  HOOK • 

CM000095 

00446 

0690 10 

HR-DO. 

CM000095 

00447 

069020 

MOVE  l  _T0  J.  MOVE  •  MUX  CHAN  1 

TO  MCOO.  MOVE  25  TO 

JECT.  CM000095 

0044  8 

069C40 

PERFORM  WRD01  VARYING  J  FROM  1  3Y 

1  UNTIL  J  =  8  AFTER 

K  FROM 

00449 

06905C 

l 

BY  l  UNTIL  K  >  64. 

00450 

069060 

MOVE  24  TO  JECT. 

CM000095 

00451 

069070 

GO 

TO  HR-SR. 

CM000095 

00452 

0691 OC 

WR001. 

CM000095 

00453 

0691 10 

SUBTRACT  1  FROM  X  GIVING  L002. 
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00454 

069120 

MOVE 

J  TO  L001. 

00455 

069150 

MDVE 

003  (J, 

Kl  TO  LDD3. 

CM000095 

00456 

069160 

MDVE 

D04  (J, 

K)  TD  L004. 

CM000095 

00457 

069170 

MOVE 

005  (J, 

K)  TO  L0D5. 

CM000095 

0045  8 

069180 

MOVE 

DD6  (J. 

Kl  TO  L006. 

...  _ _  .  ...  .CH000095 

00459 

069190 

MDVE 

007  (J, 

K)  TO  LOO 7. 

CM000095 

0046  0 

069200 

MDVE 

D08  (J, 

Kl  TO  LOO 8. 

CM000095 

00461 

069210 

MOVE 

DD9  (Ji 

Kl  TO  LD09. 

CM000095 

00462 

069220 

MDVE 

0010  (J 

(  K)  TD  L0010 

CM000095 

00463 

069230 

MOVE 

0011  (J 

,  K)  TO  L001 1 

CM000095 

00464 

069240 

MDVE 

DD12  (J 

.  K)  TO  L0012 

CM000095 

00465 

069250 

MOVE 

DD13  (J 

,  Kl  TO  L0013 

CN000095 

00466 

070010 

MOVE 

0014  (J 

,  K)  TO  LD014. 

r.  MOO 009 5 

00467 

070020 

MDVE 

DO  15  (J 

.  K)  TO  L0015. 

CN000095 

00468 

07003C 

MOVE 

0016  (J 

,  Kl.  TO  L0D16. 

.  .....  CM000095 

00469 

070040 

[F  DO SN  (J. 

Kl  =  *-•  MOVE 

TO  FILLER1  FILLER2  FILLER3  CM000095 

070050 

070060 

070070 

070071 

070080 

070C90 

070100 

070110 


0047C 
00471 
00472 
00473 
00474 
00475 
00476 
00477 
00478 
00479 
00480 
00481  **073090 
00482  .  073100 
00483 
00434 
00485 
00486 
00487 
00488 
00489 
00490 
00491 


(F 


FILLER4  FILLERS  ELSE  MOVE  SPACE  T0.-FILLER1_F_1U.ER2_ _ 

F ILLER3  FILLER4  FILLER5. 

K  =  1  OR  JECT  =25  _  . 

WRITE  LIT  FROM  OOAS-HD  AFTER  0 

WRITE  LIT  FROM  HEADMCOO  AFTER  2  .... 

MOVE  0  TO  JECT. 

AOD  1  TO  JECT.  _  ...  . 

WRITE  LIT  FROM  ODL( ST  AFTER  2. 


073010  SPACE-TB.  ...  .  . 

073110  PERFORM  SPC-00  VARYING  K  FROM  l  BY' 1  UNTIL  K  >  64  AFTER 
073120  .J  FROM  1  BY  1  UNTIL  J  >  7.  ... 

PERFflRM  SPC-SV  VARYING  K  FROM  l  BY  1  UNTIL  K  >  12  AFTER 

J  FROM  1  BY  1  UNTIL  J  >  60.  _  ._ 

074180  SPC-SV. 

C7419C  MOVE  SPACE  TO  SV3  (J,  K1 . 

074200  SPC-00. 

074210  MDVE  SPACE  TO  001  [J.  Kl,  002  [J,  Kl,  003  (J,  K )  004  (J,  .Kl 

07422 C  005  (J.  XI  006  (J,  K)  007  IJ,  XI  D08  (J,  K) 

0010  (Jf  K I  0011  (J.  K I  0012  IJ|  Kl.  _ 


074230 

074240 

074250 

**071010  WR-SR 


009  (J,  Kl 

0013  (J,  Kl  0014  (Ji  Kl  0015  (J,  Kl  0D16  (J.  K] 
ODSN  ( J,  K]  , 


00492  **C6724C  MOVE  24  TO  JECT. 

00493  06725C  MOVF  SCF  TO  FIXR. 

0049*  06901''  WR-SV. 

00495  PFRFDHH  WRSVl  VARYING  J  FROM  l  I3Y  l  UNTIL  J  > 

0C496  **066240  GU  TO  WR-ALL. 

C69960  WRSVl. 

IF  J  =  1  PERFURM  SVTOP. 

IF  J  =  21  PFRFflRM  SVTOP. 

IF  J  =  41  PERFORM  SVTOP. 

MCj'VF  J  TO  SVNO. 

MOVE  SV3  (J,  2) 


60. 


0C*9  7 
CC49o 
00499 
00500 
00501 
00502 
00503 
00504 
00505 
00  5^  6 
00507 
C05CH 
00507 
0051  0 


TO  P0RT2. 
MOVE  SV3  (J,  3)  TO  PTRT3. 
MOW  SV3  (J,  4)  TU  PQRT4, 
MOVE  SV3  (J.  5)  Tf|  P0RT5. 
MOVE  SV3  IJi  61  TU  P0RT6. 
MOVE  SV3  (J.  71  TO  P0RT7 • 
MOVE  SV3  (J,  8)  TO  PnRT8. 
MnvE  S V3  C  J «  91  TO  P0RT9. 
MOVE  SV3  (J,  10)  TU  PORTIO. 


CM000095 . 
CM000095 


CM000095 

CM000095 

CM000095 

CM000095 

CM000095 

CM000095 

CM000095 

CM000095 

CM000095 

CM000095 

CM000095. 

CM000095 

CM000095 

CM000095 

CM000095 

CM000095 

CM000095 

CM000095 

CM000095 

CM000095 
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10 


00511 

MOVE 

SV3  IJ,  11)  TO  PORT  11. 

00512 

MOVE 

SV3  IJ,  121  TO  PORT 12. 

00513 

WRITE 

LIT  FROM 

SVLINE 

AFTER 

0C514 

SVTGP. 

00515 

WRITE 

LIT  FROM 

SVT0P1 

AFTER 

00516 

WRITE 

LIT  FROM 

SVT0P2 

AFTER 

00517 

WRITE 

LIT  FROM 

SVT0P3 

AFTER 

00518 

**067230 

HR-ALL. 

00519 

072C4C 

CLOSE 

LIST. 

00520 

072050 

CLOSE 

DCARO. 

00521 

072060 

STOP 

RUN. 

2.  .  ...  . . . 

0.  . .  . . 

3. 

1  .  . . 

-  CM000095 
._  _ _ CM000095 

..  _  _  _ _  CK000095_ 
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00001 

.00002 _ 

00003 
-0*0004 .. 
00005 
.-00006— 
00007 
.  00008  —  . 

00009 
-00010- 
00011 
—00012. .. 
00013 


00015 
.  00016- 
00017 
...00018-. 
00019 


001010  IDENTIFICATION  DIVISION. 

001020  PROGRAM-ID.  'CM000049*. 

001030  AUTHOR.  JACK  ROSE. 

001040  INSTALLATION.  ARO  INC  TULLAHOMA  TENN. 

001050  DATE-WRITTEN.  SEPT  1967. 

001060  OATE-COMPILEO.  DEC  3i.l969 
001070  SECURITY. 

.001080  REMARKS.  THIS  PROGRAM  PRODUCES  A  TRANSDUCER  FILE 
001090  TO  8E  USEO  BY  RTF  INSTRUMENT  PROGRAM. 

001100  .ENVIRONMENT  OIVISION. 

001110  CONFIGURATION  SECTION. 

.001120. SOURCE-COMPUTER.  IBM-360  H50. 

001130  OBJECT-COMPUTER.  IBM-360  H50. 

.001140  . INPUT-OUTPUT.  SECTION.  .  .  . 

001150  FILE-CONTROL. 

001160..-  SELECT-  GILMORE  ASSIGN  .'GOOl*  UTILITY. 

001170  SELECT  C-FILE  ASSIGN  'COOl*  UTILITY. 

-OOUBO. DATA.  DIVISION. _  _  _  _ _ 

001190  FILE  SECTION. 


_ 00020 _ 001200-ED-  GILMORE  .RECORDING  F..  .  BLOCK  l.RECOROS 


00021 

001210 

LABEL 

RECOROS  STANOARD  OATA  RECORO 

-.00022.. 

.  002010.  01 

GILM. 

00023 

002020 

02 

FILLER 

PICTURE 

X(IO) . 

-00.024— 

.  002030  _ 

_02. 

.INS-NO  .... 

PICTURE 

XI 161.- . . 

00025 

002031 

02 

RINS-ND  REDEFINES  INS-ND. 

—00026  _. 

.002032  . 

_ 

03  FILLER 

PICTURE 

X. 

00027 

002033 

03  INS-NN 

PICTURE 

X I 151 . 

00028  002040 

_  02 — F.ILLER _ 

-PICTURE  . 

..X  E 6 1 .  .  - . . 

00029 

002050 

02 

MFGR 

PICTURE 

x(  121. 

-00.030.. 

..  002060.- 

02. 

MATE 

PICTURE 

XI20I. 

00031 

002070 

02 

RANGE. 

-00032 

002071..  . 

03  RG1 

PICTURE 

X. 

00033 

002072 

03  RG2 

PICTURE 

X. 

-00034  . 

.002073.... 

03  RG3  . 

PICTURE 

X. 

00035 

002074 

03  RG4 

PICTURE 

X. 

—00.036 _ 

_ Q02075 _ _ 

.03  RG5 _ 

..PICTURE 

X.  ..  ...  _ 

00037 

002080 

02’ 

RANGE-UNIT 

PICTURE 

XI 121. 

-.00038- 

002090-  . 

02 

PIC 

PICTURE 

X. 

00039 

002100 

02 

FILLER 

PICTURE 

XI 131. 

-00040.. 

002110  . 

02 

NIC 

PICTURE 

X. 

00041 

002120 

02 

FILLER 

PICTURE 

Xflll. 

-.00042... 

.  002130 _ 

.02  . 

POC 

PICTURE 

X. 

00043 

002140 

02 

FILLER 

PICTURE 

X. 

00044  . 

-002150  .  .... 

_02.. 

-FACILITY.- 

.  PICTURE 

xxxx. 

00045 

002160 

02 

NOC 

PICTURE 

X. 

-00046 — 

—002170 _ 

.02 _ FILLER _ 

...PICTURE.. 

XI 16)  ._  ..._ . . 

00047 

002180 

02 

OATE-CAL. 

-00048 

_ D02L81 

.03  -OCMO. 

..PICTURE.. 

99. 

00049 

002182 

03  OCOY 

PICTURE 

99. 

-00050- 

-0021B3.  .._ 

03  DCYR 

PICTURE 

99.  .  .  _  _ 

00051 

002184 

02 

RDATE  REOEFINES  DATE 

-CAL  PICTURE  X 161  • 

-0005.2- . 

_  .0021.90-  ._ 

02. 

.EXCITATION. 

-PICTURE 

S99V99. . . 

00053 

002200 

02 

FILLER 

PICTURE 

XI 299)  . 

00054  . 

002210  . 

02 

R-C  AL-J.YEE 

PICTURE. 

XXX.  — . 

RECORO  747 
GILM. 


CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
CM 000049 
CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
CH000049 
CM000049 
CM000049 
CM000049 
CM000049 
CM003049 
CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
CM000049 


CM000049 

CM000049 

CM000049 


CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
C MO 00049 
CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
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_00.055 _ 

-002220- .. 

02 

FILLER  _ 

PICTURE  XI531 

1.  .  . 

CH000049 

00056 

002230 

02 

CORR-P-UN 

PICTURE  X. 

CH000049 

-00.05.7 _ 

_  09  IQ  19...  I 

..02 

UNO. 

CM000049 

00058 

003020 

03  RNO-MVV 

. PICTURE 

"S9I5IV9. 

CM000049 

—00059 _ 

-003030-  .. 

03  RNO-FS 

PICTURE  . 

S9I71V999. 

CM000049 

00060 

003040 

03  RNO-PSI 

PICTURE 

S9( 5 1 V99. 

CH000049 

0006 1 

003050. 

_02 

RN1.  _  . 

CH000049 

00062 

003060 

03  R.N1-RES 

PICTURE 

S9I5IV999. 

CH000049 

-QQ053 _ 

-0.03070 _ 

..03  RN1-MVV 

.  .  PICTURE 

S9(5»V999. 

CM000049 

00064 

003080 

03  RN1-FS 

PICTURE 

S9I5IV99. 

CH000049 

_00065._. 

.003090 _ 

03  RN1-PS1 

PICTURE 

S9I6IV999. 

00066 

003100 

02 

RN2. 

CM000049 

—00067 

-003110 _ 

.03  RN2-RES 

PICTURE 

.S9I5IV999. 

CH000C49 

0006B 

003120 

03  RN2-MVV 

PICTURE 

S9I5IV999. 

CM00OO49 

011065 _ 

.003130 _ 

03  RN2-FS 

PICTURE 

S9I5IV99. 

CH000049 

00070 

003140 

03  RN2-PSI 

PICTURE 

S9I6IV999. 

CM000049 

.  .09071 _ 

-003150  ..  . 

02 

RN3. 

CM900049 

00072 

003160 

03  RN3-RES 

’  PICTURE 

S9I5IV999. 

CM000049 

-000.7.3  _ 

.003170  . 

03  RN3-MVV. 

PICTURE 

S9I5IV999. 

CN000049 

00074 

003180 

03  RN3-FS 

PICTURE 

S9I5IV99. 

CM000049 

-000.7.5 _ 

003190  .  . 

03  RN3-PSI 

PICTURE 

S9I61V999. 

CN000049 

00076 

003200 

02 

RN4. 

CK000049 

-00077.  _ 

.003210 

03  RN4-RES 

PICTURE 

S9I5IV999. 

CN000049 

00078 

003220 

03  RN4-MWV 

PICTURE 

S9I5 IV999, 

CH00Q049 

-000.7.9  . 

003230 

03  RN4-FS 

PICTURE 

S9I5IV99. 

CM000049 

00080 

003240 

03  RN4-PSI 

PICTURE 

S9C  6 1 V999. 

CM000049 

-0.00  Bl_. 

..004010 

02 

RNOO-MV 

PICTURE 

S9I5IV9. 

CH000049 

00082 

004020 

02 

RNOO-FS 

PICTURE 

S9I7IV999.  ■ 

CH000049 

-00083 

004030 

02 

RN00-PS1 

PICTURE 

S9I5IV99. 

CK000049 

00084 

004040 

02 

FILLER 

PICTURE 

X 1 77 1 « 

_000.85_  . 

004050  FO 

C-FILE  .  RECOROING  F  BLOCK  1  RECOROS 

RECORO  80 

CH000GA9 

00086 

004060 

LABEL  RECOROS  STANDARD  DATA 

RECORD  CFLL. 

CM000049 

_H0087__ 

.  01 

CFLL  PICTURE 

XI 801 • 

00088 

005001  WORKING 

-STORAGE  SECTION. 

_Q0005 _ 

-005010  _7.7_ 

_ CNOT  ..  PICTURE. 

--9.99.9  VALUE 

0.  _ 

_ 

CM000049 

00090 

005019  01 

CHANGE-RANGE' 

-00.051. 

_ 005J520 _ 

.  02 

CAT-RNG. 

_ _  .  _ _ _ 

00092 

005030 

03  CRG1 

PICTURE 

X. 

_OQ093. 

_ 005040 

.03  CRG2. 

...PICTURE.- 

X. . . . 

00094 

005050 

03  CRG3 

PICTURE 

X. 

00.09.5 

^005060 

03.  _  CRG4 

PICTURE.. 

X. 

00096 

005070 

03  CRG5 

PICTURE 

X. 

-0.009-7 

**0.0.40.7.0  .01. 

.CEIL.. _ _ 

CM000049 

00098 

004080 

02 

CNO 

PICTURE 

tin. 

CH000049 

-00099 

_ 004090 

02 

CCNT  . 

PICTURE 

9. 

CR00C049 

00100 

0041OO 

02 

CTYPCO 

PICTURE 

X 1 7 » . 

CM000C49 

-00101 

004110 

02 

CRANGE 

PICTURE 

X  C  7  1  • 

CMOOOC49 

00102 

004120 

02 

CRNUNIT 

PICTURE 

XXX. 

CR900C49 

-00103 

004130 

02 

CRNGCOOE 

PICTURE 

X' 

CKOCOC-49 

00104 

■  004140 

02 

CPARM 

PICTURE 

X|9». 

CMD00049 

00105 

004150 

02 

CMFG 

PICTURE 

XI9». 

CM000C4Q 

00.136 

004160 

02 

CARONO 

PICTURF 

XI6I. 

C«0O0C49 

00107 

■  004170 

02 

CAROCD 

PICTURE 

X, 

CM000049 

00108 

004180 

02 

CUDC 

PICTURF 

X  1 4 1  • 

C«003049 

00109 

004190 

02 

CRN 

PICTURE 

X. 

CM00004R 

00110 

004200 

02 

CPOSRN 

PICTURE 

XI9». 

00111 

004201 

02 

RCPOSRN 

REDEFINES 

CPnSRN  PICTURE  -9999.999. 
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00112 

004220 

02  CNEGRN  PICTURE  X(9>. 

CM000049 

00113 

**004210 

02  CPEO  PICTURE  XXX. 

CM000049 

00114 

004240 

02  RECAL  PICTURE  X(6l. 

CM000049 

00115 

006010 

PROCEOURE  0 1 VI SION. 

CM000049 

00116 

006020 

OPEN  INPUT  GILMORE  OUTPUT  C-FILE. 

CH000049 

00117 

006030 

PERFORM  P9. 

CM000049 

0011B 

006040 

MOVE  SPACE  TO  CARONO. 

00119 

006050 

REAO-GIL. 

CM000049 

00120 

006060 

READ  GILMORE  AT  ENO  GO  TO  G-EOF. 

CM000049 

00121 

006061 

IF  FACILITY  =  1 R NO 0 1  OR  FACILITY  =  *RN10*  NEXT  SENTENCE 

00122 

006062 

ELSE  GO  TO  REAO-GIL. 

00123 

006069 

MOVE  SPACE  TO  CAT-RNG. 

00124 

006070 

IF  RG1  *  SPACE 

00125 

006071 

IF  RG2  »  SPACE 

00126 

006072 

IF  RG3  -  SPACE 

00127 

006073 

IF  RG4  =  SPACE 

00128 

_  006074 

IF  RG5  =  SPACE 

00129 

006075 

MOVE  RANGE  TO  CAT-RNG 

00130 

0013t 

00132 

00133 

00134 

00135 

00136 

00137 

00130 

00139 

00140 

00141 


006076 

006077 

006078 

006079 

006080 

006081 

006082 

006090 

006100 

006110 

006120 

006130 


.00142.  — 006140 


00143 

00144 

00145 

00146 

00147 

001^8 

00149 

001'50 

00151 

00152 

00153 

00154 

00155 

00156 

00167 

00138 

00159 

00160 

00161 

00162 

30163 

0C154 

00165 

C0166 

30167 

00168 


006141 

006150 

006160 

006170 

006180 

006190 

006200 

007010 

007020 

007030 

007040 

007050 

OC706C 

007070 

007080 

007090 

007100 

007110 

007120 

007130 

307140 

00715C 

00716C 

007170 

007180 

007190 


P8. 


P2. 


ELSE  HOVE  RG5  TO  CAT-RNG 

ELSE  MOVE  RG4  TO  CRG1  MOVE  RG5  TO  CRG2 

ELSE  MOVE  RG3  TO  CRG1  MOVE  RG4  TO  CRG2  MOVE  RG5  TO  CRG3  . 

ELSE  MOVE  RG2  TO  CRG1  MOVE  RG3  TO  CRG2  MOVE  RG4  TO  CRG3 

MOVE  RG5  TO  CRG4 
ELSE  MOVE  RANGE  TO  CAT-RNG. 

MOVE  CAT-RNG  TO  CRANGE. 

MOVE  MFGR  TO  CMFG. 

MOVE  INS-NN  TO  CARONO. 

IF  EXCITATION  «  10.00  ANO  R-CAL-TVPE  *  '0  • 

MOVE  'OS  'TO  CUOC  GO  TO  P8. 

IF  EXCITATION  «  5.00  ANO  R-CAL-TYPE  -  *0  • 

MOVE  '0S2  •  TO  CUOC  GO  TO  P8.  MOVE  *  •  TO  CUOC . 

IF  ROATE  =  SPACE  GO  TO  P2. 

IF  OCHO  <7  AGO  6  OCMO  GIVING  OCMO 
GO  TO  P2. 

SUBTRACT  6  FROM  OCMO  GIVING  OCMO 
AGO  1  OCYR  GIVING  OCYR. 

MOVE  ROATE  TO  RECAL. 

IF  hATE  =  'CA3106E-14S-5S-F43  • 

AND  PIC  =  'A'  ANO  NIC  =  'O'  ANO  POC  «  'B*  ANO  NOC  -  'C* 
MOVE  ■OUCER-S*  TO  CTYPCO  GO  TO  P3. 

IF  MATE  =  'CA3106E-14S-5S-F43  ■ 

AND  PIC  -  •A1  AND  NIC  ■  'O'  ANO  POC  -  »C •  ANO  NOC  »  'B' 
MOVE  • OUCR-5 A '  TO  CTYPCO  GO  TO  P3. 

IF  MATE  =  'CA3106E-14S-5S-F43  • 

ANO  PIC  =  'O'  ANO  NIC  =  'C'  ANO  POC  ■  *A»  ANO  NOC  =  *B* 
MOVE  * 0UCR-5B '  TO  CTYPCO  GO  TO  P3. 

IF  MATE  =  • PT06A- 10-6SI SR  I  ' 

AND  PIC  =  'A'  ANO  NIC  =  'O'  ANO  POC  »  'B*  ANO  NOC  »  'C' 
MOVE  *  DUCER-6 1  TO  CTYPCO  GO  TO  P3. 

IF  MATE  =  •PT06A-10-6SCSRI  • 

ANO  PIC  =  1  A*  ANO  NIC  =  'O'  ANO  POC  »  *C*  ANO  NOC  ■  'B' 

MOVE  •PUCR-6A'  TO  CTYPCO  GO  TO  P3. 

IF  MATE  =  • PTC6A-10-6SCSR)  • 

ANO  PIC  =  *0'  ANO  NIC  =  'C'  AND  POC  =  'A*  AND  NOC  =  'B* 
MOVE  1 DUCR-6B *  TO  CTYPCO  GO  TO  P3. 

IF  MATE  =  ' MS3106B-14S-2S  ■ 


CM000049 

CM000049 

CM000049 

CH000049 

CM000049 

CM000049 

CM000049 

CN000049 

CN000049 

CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
CM000049 
CMO 00049 
CM000049 
CM000049 
CM000049 
CM000C49 
CM000049 


80 


AEDC-TR-71-109 


4 


00169 

007200 

ANO  PIC  «  'A'  AND  NIC  =  'O' 

ANO  POC  * 

•B* 

AND 

NOC 

= 

•C'.. 

CM000049 

00170 

007210 

HOVE  'OUCER-4'  TO  CTYPCO 

GO  TO  P3. 

CH000049 

00171 

007220 

IF  HATE  «  'HS31068-16S-2S 

i 

CM000049 

00172 

007230 

ANO  PIC  =  'A1  ANO  NIC  =  <0* 

ANO  POC  s 

•C' 

ANO 

NOC 

91 

•B* 

CH000049 

00173 

007240 

HOVE  '0UCR-4A'  TO  CTYPCO 

GO  TO  P3. 

CM000049 

00174 

008010 

IF  HATE  =  'HS3106B-14S-2S 

i 

■CM000049 

00175 

008020 

ANO  PIC  *  'O'  ANO  NIC  =  'C 

AND  POC  = 

•A' 

ANO 

NOC 

= 

•B'  .. 

•CM000049 

00176 

0C8330 

HOVE  • 0UCR-4B •  TO  CTYPCO 

GO  TO  P3. 

CH300049 

00177 

008040 

IF  HATE  =  'PT06A-8-4SISRI 

i 

CM000049 

00178 

00  8050 

ANO  PIC  =  'A*  ANO  NIC  «  *0* 

ANO  POC  ■ 

•B* 

ANO 

NOC 

a 

•C* 

CH000049 

00179 

008060 

HOVE  '0UCER40 1  TO  CTYPCO 

GO  TO  P3. 

CM000049 

00180 

008070 

IF  HATE  •  'PT06A-8-4SI SRI 

i 

CH000049 

00181 

00  8080 

ANO  PIC  =  • A '  ANO  NIC  =  *0* 

AND  POC  » 

•C' 

ANO 

NOC 

a 

•B* 

CM000049 

C0182 

008090 

MOVE  1 0UCR40 A 1  TO  CTYPCO 

GO  TO  P3. 

CH000049 

00183 

008100 

IF  HATE  =  'PT06A-8-4SISRI 

■ 

CH000049 

D0184 

008110 

ANO  PIC  «  *0'  ANO  NIC  »  *C' 

AND  POC  = 

•A' 

ANO 

NOC 

s 

■8* 

CH000049 

00185 

*♦008110 

HOVE  *  OUCR40B '  TO  CTYPCO 

GO  TO  P3. 

CH000049 

D0186 

008120 

IF  HATE  «  'CA3106E-14S-6S-F43  • 

CH000049 

00187 

008130 

ANO  PIC  »  '  A '  ANO  NIC  *  *0* 

ANO  POC  - 

•B' 

ANO 

NOC 

a 

•C' 

CM000049 

00188 

008140 

MOVE  ' 0UCER60'  TO  CTYPCO 

GO  TO  P3. 

CM000049 

0018  9 

008150 

IF  HATE  *  'CA3106E-14S-6S-F43  • 

CH000049 

00190 

008160 

ANO  PIC  «  "A*  ANO  NIC  «  'O' 

AND  POC  = 

•C' 

ANO 

NOC 

a 

•B' 

CH000049 

00191 

008170 

HOVE  • 0UCR60A'  TO  CTYPCO 

GO  TO  P3. 

CM000049 

00192 

008180 

IF  HATE  «  'CA3X06E-14S-6S-F43  * 

CH300049 

.00193 

008190 

ANO  PIC  «  'O'  ANO  NIC  «  'C* 

ANO  POC  - 

•A* 

ANO 

NOC 

a 

•B* 

CH000049 

00194 

008200 

MOVE  ' OUCR6O0 '  TO  CTYPCO 

GO  TO  P3. 

CH000049 

00195 

008220 

IF  HATE  -  • PT06E-1 2-10S I  SR  I 

• 

CH000049 

00196 

008230 

ANO  PIC  *  • A 1  ANO  NIC  -  'O' 

ANO  POC  = 

•B* 

ANO 

NOC 

s 

•C* 

CH000049 

00197 

008240 

MOVE  ' OUCER 19 '  TO  CTYPCO 

GO  TO  P3. 

CH000049 

00198 

009310- 

IF  MATE  *=  'PT06E-1 2-10SISR 1 

• 

CH000049 

00199 

009320 

ANO  PIC  ■=  'A'  AND  NIC  *  'O' 

ANO  POC  = 

•C* 

AND 

NOC 

s 

■B* 

CM000049 

00200 

009330 

MOVE  'OUCRIOA'  TO  CTYPCO 

GO  TO  P3. 

CH000049 

00201 

009040 

IF  HATE  *  'PT06E-12-10SISRI 

• 

CM000049 

00202 

009050 

ANO  PIC  *  'D*  ANO  NIC  ■  *C' 

ANO  POC  = 

•A* 

ANO 

NOC 

a 

•B* 

CH000049 

00203. 

009060 

HOVE  ' OUCR 10B '  TO  CTYPCO 

GO  TO  P3. 

CH003049 

00204 

IF  HATE  =  ' PC06-12- 10S 

i 

00205 

ANO  PIC  =  'A*  ANO  NIC  *  'O' 

ANO  POC  * 

•8' 

AND 

NOC 

a 

•C' 

00206 

HOVE  • DUCR IOC '  TO  CTYPCO  GO 

TO  P3. 

00207. 

IF  MATE  =  ' PC06-I 2-10S 

• 

00208 

ANO  PIC  »  'E'  ANO  NIC  -  'B' 

ANO  POC  = 

•D' 

AND 

NOC 

a 

•A'  ’ 

00209 

HOVE  'DUCR 100'  TO  CTYPCO  GO 

TO  P3.  . 

00210 

009070 

IF  HATE  =  'PC06W-8-4S 

i 

CM000049 

00211. 

__  0090  8  0 

ANO  PIC.=  'A'  ANO  .NIC  J=_!0! 

.ANO-.PDC.Ji_ 

.'Bi. 

-ANO—NOC- 

g 

•c’ 

_ CH000049.. 

00212 

009390 

HOVE  ' DUCER41 '  TO  CTYPCO 

GO  TO  P3. 

CH000049 

00213 

009100 

IF  HATE  =  ' PCO 6W-8-4S 

i 

.  _  CH000049 . 

00214 

009110 

ANO  PIC  =  'A'  ANO  NIC  =  'O' 

ANO  POC  » 

•C' 

ANO 

NOC 

M 

•B'” 

CM000049 

.00215 

009120 

MOVE  '0UCR41A*  TO  CTYPCD 

GO  TO  P3. 

CM000049. 

00216 

009130 

IF  MATE  =  'PC06W-8-4S 

i 

CH000049 

.00217 

009140 

1  ANO  PIC  =  'O'  ANO  NIC  =  'C' 

AND  POC  * 

•A' 

ANO 

NOC 

a 

•B' 

CH000049 

00218 

009150 

HOVE  ' 0UCR41B '  TO  CTYPCD 

GO  TO  P3. 

CH000049 

00219 

009160 

MOVE  'NON-STO'  TO  CTYPCO. 

CH000049 

00220 

009170 

P3.  IF  CORR-P-UN  =  ' A •  MOVE  'PSA'  TO  CPEO 

B 

CM000049 

.00221 

009180 

IF  CORR-P-UN  =  'G'  MOVE  'PSG'  TO  CPEO 

•  -  . 

CH000049 

00222 

009190 

IF  CORR-P-UN  =  'O'  MOVE  'PSO»  TO  CPEO 

B 

CH000049 

.00223 

-  009200 

IF  RANGE-UNIT  =  '  ABSOLUTE 

•  MOVE  • 

PSA*  TO 

CRNUNIT 

CM000049 

00224 

009201 

GO  TO  P4. 

CH000049 

00225 

009210 

.  .  IF  RANGE-UNIT  -  •  GAGE 

•  .MOVE  ' 

PSG 

•  TO 

CRNUNJT  _ 

CH000049 
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.00226 _ 

.009211 

GO  TO  P4. 

CM000049 

00227 

009220 

IF  RANGE-UNIT 

=  •  UNIOIR  OIFF* 

MOVE  'PSO' 

TO 

CRNUNIT • 

CM0Q0D49 

J10220 _ 

.009221  .... 

.GO  TO  P4. 

.... 

CM000049 

00229 

009230 

IF  RANGE-UNIT 

=  •  BIOIR  OIFF.' 

MOVE  'PSO* 

TO 

CRNUNIT 

CM000049 

. 00230— 

.  009231 

GO  TO  P4. 

CM000049 

00231 

009240 

MOVE  'N/A*  TO 

CRNUNIT. 

CM000049 

-00232 -.009250  P4. 
00233  010030 

.00234 _ 010040 


00235 

.00236. 

00237 

-0Q230-. 

00239 

-Q024Q _ 

00241 
002.42. 


MOVE  5  TO  CCNT. 

MOVE  'O'  TO  CRN. 

010050  MOVE  'N/A*  TO  CPOSRN. 

WRITE  CELL  PROM  CFIL. 

DISPLAY  CPIL. 

MOVE  SPACE  TO  CTYPCO  GRANGE  CRNUNIT  CRNGCODE  CP ARM  CMPG 

CAROCO  CUDC  -.  CNEGRN.  RECAL..  _  , 

MOVE  0  TO  CNO. 


00243 

-00244 _ 

00245 


010080 
010090 
010100. 
010101 
0101 10. 
010120 
010130 
010160 


P9. 


■N/A 


•  TO  CPOSRN 


00247 

00240 . .  . . 

00249  010190 

00250 _ 010200. 

00251  010210 

00242— _ 010220 

00253 

00254 _ 

00255  010240 

00257  011010 

00258 _ 011020 

00259 

00260 _ _ 

00261  011040 

00262 _ 011050. 

00263  011060 

nn?64  mi07Q 

00265 

00266 - - 

00267  011090 

00260 _ 011100- 

00269  011150 


TO  CPOSRN 


P10.  _  . . 

MOVE  4  TO  CCNT. 

_ _ HO VE -  ■  1  ■  TO  CRN.  -  .. 

IP  RNl-PSI  =  999999.999  MOVE 

-_PSI_T0— RCPOSRN  ._ _ 

WRITE  CPU.  FROM  CFIL. 

_ 01 SP-LAY  CFIL,...  -  - 

IF  RN2-PSI  =  999999.999  HOVE  >N/A 

_ ELSE  M0VE.RN2-.PS!  TO  RCPOSRN.. ...  .  .... 

MOVE  3  TO  CCNT. 

_ HOVE-12' -to  CRN. _ _ _  ..  .  _ . 

WRITE  CFLL  FROM  CFIL. 

_ 01  SPLAY  -CF.ll.  .  . . .  ..  . 

IF  RN3— PSI  -  999999.999  MOVE  *N/A  ■  TO  CPOSRN 

_ ELSE— MQy£— RN3.-P.SL— 10-  RCPOSRN..  _ _ 

HOVE  2  TO  CCNT. 

__  MOVE..'. 3 '..TO  CRN.  _  . . . .  .  . 

WRITE  CFLL  FROM  CFIL. 

01  SPLAY  CFIL.  .  -  .  .._ 

IF  RN4-PSI  -  999999.999  MOVE  *N/A  '  TO  CPOSRN 

_ ELSE_M0ve.-RN4--.PSI  ..T.0_ RCPOSRN...  _ _ _ 

MOVE  1  TO  CCNT. 

_ M0VE_J_4i.  XD-CRN. _ 

WRITE  CFLL  FROM  CFIL. 

.  DISPLAY.  CFIL.  ...  -  - - 

PERFORM  P9. 

_ G0-T.0_READ-.GIL. _  .  .  .... 

G-EOF. 

.-E1LE-. _ STOP  RUN. _ 


CM000049 

CH000049 

CH000049 


CM000049 

CM003049 


CH000049 

CH000049 

CM000049 

CM000049 

-CH000049. 


CM000049 
CM000049 
CH000049 
CM000049 . 


CM000049 

CM000049. 

CH000049 

CH000049 


CM000049 

CM000049 

CM000049 

.CM0Q0049. 


C MO 00049 
CM000049 
CM000049 
.CM000049 
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.1.. 


0000 1 
00002_ 
00003 
00004 
00005 
.0000  6_ 
00007 

ooe  ojL 

00009 
00010 
~oooi  i 
00012 


00013 
00014 
00015 
00016 
00017 
0001 B 
00019 
00020. 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031' 


001010  IDENTIFICATION  01VIS1ON. 

001020  PROGRAM* 10.  ■CM000138\.  _ 

001030  AUTHOR.  JACK  ROSE.  - 
.001040  INSTALLATION.  ARO  INC.  . 

OATE- WRITTEN.  JULY  1969. 

_ 001060  0ATE-C04PILED.  SEP  16,1969  .  . 

001070  SECURITY. 

001090  ENVIRONMENT  OIVISION. 

001100  CONFIGURATION  SECTION. 

_001110_  sbURCE-COMPUTER.  IBM-360  H50. 

001120  OBJECT-COMPUTER.  IBM-360  H50. 

_ 001130  INPUT-OUTPUT  SECTION.  .  . 

O'6il40  FILE-CONTROL. 

001150  SELECT  C-FILE  ASSIGN  'CF001'  UTILITY. 

SELECT  OUTFILE  ASSIGN  *CFOUT»  UTILITY. 

OATA  OIVISION. 

FILE  SECTION. 

FO  C-FILE  RECORDING  F  .BLOCK  l  RECCROS  RECORO 
LABEL  RECORO S  OMITTED  DATA'  RECORD  C- 


001220 
001230 
002010 
00232  0 
.002030  01 
002031 
002040 
002050 


80 

FIL. 


C-FIL...  .  . 
02  CF-TC 
_02  CF-NO 
02  CF-CNT 


PICTURE 

PICTURE 

PICTURE 


X. 

XXX... 

9. 


.002060  _ 02  _  CF-.TYPCp.  ..P ICTURE..  X 17) . 


002070 

002080 

002090 

002100 

002110 

002120 

002130 


02 

02 

02 

02 

02 


CF-RNG 
CF-RNGU 
CF-RNGCO 
CF-PARM 
CF-MFG 


PICTURE- 

PICTURE 

PICTURE 

PICTURE 

PICTURE 


XI 7) . 

XXX. 

X. 

XI  9 )  . 
X(  9)  • 


02  Cc- 1  NO  PICTURE  XI  6). 
02  CF-INOCO  PICTURE  X. 


00032 

002140 

02 

CF-UOC 

PICTURE  XI41  • 

00033 

002150 

02 

CF-RN 

PICTURE  X. 

00034 

002160 

02 

CF-POS 

PICTURE  XI 9 1 . 

00035 

002170 

02 

CF-NEG 

PICTURE  XI 91.- 

00036 

002180 

02 

CF-EOU 

P ICTURE  XXX. 

00037 

002190 

02 

CF-RCAL 

PICTURE  XI 6 1  . 

00036 

F0_. 

.OUTFILE  . 

00039' 

RECORDING  F 

00040 

BLOCK  1 

RECORDS 

00041 

RECORO 

87 

00042 

LABEL  RECOROS  STANOARO 

00043 

OATA  RECORO  CFNEW. 

00044 

01.. 

CFNEW. 

00045 

02 

TC 

PICTUREX. 

00046 

02 

NR 

PICTURE  XXX. 

00047 

02 

CNT 

PICTURE  9. 

OOO^B 

02 

TYPCO 

PICTURE  XI7J. 

00049 

02 

»NG 

PICTURE  X 17 1 . 

00050 

02 

RNGU 

PICTURE  XXX. 

00051 

02 

RNGCO 

PICTURF  X. 

00052  . 

02 

PARM 

PICTURE  X(9). 

00  05  3 

02 

MFG 

PICTURE  X ( 9) . 

00054 

02 

I  NO 

PICTURE  XI6I. 

CM000057 

CH000057 
CM 00005 7 


CM000057 

CM000057 

CM000057 

CM000057 

CM000057 

CM000057 

CM0O0057 

CM000057 

_ _ CM000057 


CM000057 

CM000057 

CM000057 

CM000057 

CM000057 

CM000057 

CM000057 

CM000057 

CM000057 

CM000057 

CM000057 

CM000057 

CM000057 

CH000057 

CM000057 

CM000057 

CH000057 

CM000057 

CM000057 

CM000057 
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OO055- 
00056 
00057 
00058 
00059 
00060 
00061 
00062 
00063 
00064 
00065. 
00066 
00067 
00068 
00069 
00070 
00071 
00072 
00073. 
00074 
0007  5_ 
00076 
00077 
00078 
00  079 
00  080 
00081 
00082 
00083 
00084 
00085 
00086 
00087 
00083 
00089 
00090 
00091 
00092 
00093 
00094 
00095 
00096 
00097 
00099 
00099 
00100 
00101 
00102 
00103 


..OH _ 

.INOCD _ 

._P.I.C.T.UB.£.X, _ 

02 

UDC 

PICTURE  XI4). 

02  . 

RN 

PICTURE  X. 

02 

POS 

PICTURE  X 1 9 ) . 

...  02. 

NEG _ 

..PICTUR.E.JII  9)., _ 

02 

EOU 

PICTURE  XXX. 

.  02 

RCAL 

PICTURE  X I  6 1 . 

02 

RSORT 

PICTURE  XI7). 

00701 Q  WORKING-STORAGE  SECTION. _  CMQ00057. 

77  HOLO-RNG  PICTURE  X(7». 

77  HOLO-INO  PICTURE  X(6>. _ _  _ _ 

012010  PROCEDURE  DIVISION.  CM000057 

OPEN  INPUT  C-FILE. 

OPEN  OUTPUT  OUTFILE. 

.  1.  READ  C-FILE  .AT  END  GO  TO  99._ 

MOVE  CF-RNG  TO  HOLO-RNG. 

MOVE  CF- [NO  TO  HOLD- 1  NO. 

PERFORM  MOVE-DATA. 

2.  READ  C-FILE  AT  END  GO  TO  99. 

IF  CF-RN  NOT  =  'O'  GO  TO  2. 

IF  CP-INO  =  HOLD-INO  PERFORM  MOVE-DATA  GO  TO  2. 

MOVE  CF-INO  TO  HOLD-INO'. 

_  MOVE  CF-RNG  TO  HOLO-RNG. 

PERFORM  MOVE-DATA. 

_  GO  TO  2.  . . 

MOVE-DATA. 

_  MOVE  CF-TC  TO  TC. 

MOVE  CF-NO  TO  NR. 

_ MOVE  CF-CNT  TO  CNT . 

MOVE  CF-TVPCO  TO  TVPCD. 

MOVE  CF-RNG  TO  RhG. 

MOVE  CF-RNGU  TO  RNGU. 

MOVE  CF-RNGCD  to  RNGCD. 

MOVF  CF-PARM  TO  PAR* 

MOVE  CP-MFG  TO  MFG. 

MOVE  HOLD-INO  TO  INO. 

MOVE  CF-INOCD  TO  INOCD. 

MOVE  CF-UOC  TO  UOC. 

MOVE  CF-RN  TO  RN. 

MOVE  CF-PQS  TO  POS. 

MOVE  CF-NEG  TO  NEG. 

MOVE  CF-EOU  TO  ECU. 

MOVE  CF-RCAL  TC  RCAL. 

MOVE  UOLO.-RNG  TO  RSORT. 

WRITE  CFNErf.  ' 

99. 

CLOSE  C-FILE. 

CLnSE  OUTFILE 
STOP  RUN. 


\ 
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noool 

00032 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
0001 B 


001010  IDENTIFICATION  0IV1S10N. 

001020  PROGRAM- 10.  •CM0001331. 

001030  AUTHOR.  JACK  ROSE. 

001040  INSTALLATION.  ARO  INC. 

DATE-WRITTEN.  JULY  1969. 

001060  OATE-COMPILEO.  SEP  17.1969 
001070  SECURITY. 

REMARKS.  THIS  PROGRAM  LISTS  A  SORTEO  RTF  TOCR  FILE. 
001090  ENVIRONMENT  DIVISION. 

001100  CONFIGURATION  SECTION. 

001110  SOURCE-COMPUTER.  IBM-360  H50. 

001120  OBJECT-COMPUTER.  IBM-360  H50. 

001130  INPUT-OUTPUT  SECTION. 

001140  FUE-CONTROL. 

001150  SELECT  C-F1LE  ASSIGN  'CF001*  UTILITY. 

001200  SELECT  LISTING  ASSIGN  'LTOOl1  UTILITY. 

001220  OATA  DIVISION. 

001230  FILE  SECTION. 

:ORDS~'  REC0R0"'B7 
OATA  RECORO  C-FIL. 


00019 

002010 

FD 

C-FILE  RECORDING  F  ' 

BLOCK'  1  R 

00020 

002020 

LABEL 

RECOROS 

OMITTEO 

00021 

002030 

01 

C-FIL. 

0002  2 

002031 

02 

CF-TC 

PICTURE 

X. 

00023 

007040 

02 

cf-no 

PICTURE 

XXX'. 

00024 

002050 

02 

CF-CNT 

PICTURE 

9. 

00025 

002060 

02' 

CF-TYPCD 

PICTURE' 

xm:  ' 

00026 

002070 

02 

CF-RNG 

PICTURE 

X 1 71 . 

0002  7 

0020B0 

02 

CF-RNGU 

PICTURE 

XXX. 

00028 

002090 

02 

CF-RNGCO 

PICTURE 

X. 

00029 

002100 

02 

CF-PARM 

PICTURE 

X  1  91  . 

00030 

002110 

02 

CF-MFG 

PICTURE 

XI9I. 

00031 

002120 

02 

CF-1N0 

PICTURE 

X  (  6 1  . 

00032 

002130 

02 

CF-INOCO 

PICTURE 

X. 

00033 

002140 

02 

cf-udc 

PICTURE 

X 1 41 . 

00034 

002150 

02 

CF-RN 

PICTURE 

X. 

00035 

'  002160 

02 

CF-POS 

PICTURE 

XI 9)'.  ■ 

00036 

002170 

02 

cf-neg 

PICTURE 

X I  91  • 

00037 

002180 

02' 

' CF-EQU 

PlCtURE 

XXX.' 

0003  8 

002190 

02 

CF-RCAL 

PICTURE 

X(6). 

00039 

02 

CF-JUNK 

PICTURE  XI7). 

00040  006060  FO  LISTING  RECOROING  F  BLOCK  12  RECOROS  RECORO  132 
00041  006070  LABEL  RECOROS  OMITTED  OATA  RECORO  LISTT. 
00042  006080  01  LIST  PICTURE  XI132I. 


00043 

007010 

WORKING- 

STORAGE 

5ECTIDN. 

.  . 

00044 

007070 

77 

SKP 

PICTURE  X 

VALUE  'O'. 

00045 

007080 

77 

EJCT 

PICTURE  99 

VALUE  59. 

00046 

007090 

77 

OSKP 

PICTURE  X 

VALUE  ‘O'. 

00047 

00B081 

01 

OATALN. 

00048 

OOBOB2 

02 

FILLER 

PICTURE 

X(4)  VALUE  SPACE 

00049 

008090 

02 

LTC  ■ 

PICTURE 

X. 

’  ‘  ‘ 

00050 

008100 

02 

FILLER 

PICTURE 

XI4I  VALUE 

SPACE. 

00051 

008110 

02 

LTYPCO 

PICTURE 

X( 7)  • 

00052 

008120 

02 

FILLER 

PICTURE 

XI 4)  VALUE 

SPACE. 

00053 

008130 

02 

LRNG 

PICTURE 

XI 7) . 

00054 

008140 

02 

FILLER 

PICTURE 

XC  31  VALUE 

SPACE. 

CMODOOST 

CM000057 

CM000057 


CM000057 

CM000057 
CM000057 
CM000057 
CM00005T 
C*0  00057 
CM000057 
CM0000S7 
CM000057 
CM000057 

CM0000S7 
CM000057 
""  CM0000S7 
CM000057 
CM000057 
CM000057 
CM000057 
CM000057 
CM000057 
CM000057 
CM000057 
CM000057 
CM000057 
CM000057 
CM000057 
CM000057 
CM000057 
CM000057 
CM000057 
CM000057 


CM000057 

CH000057 

CM000057' 

CH000057 

CM000057 

CM000057 

CM000057’ 

CM000057 

CM000057 

CM000057 

CM000057 

CM000IJ57 
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00055 

008150 

02 

LRNGU 

PICTURE  XXX. 

CH000057 

00056 

008150 

02 

FILLER" 

PICTURE  XXX  VALUE  SPACE. 

CH000057 

00057 

008170 

02 

LRNGCO 

PICTURE  X. 

CH000057 

”00058 

”008180” 

“ 

”02  '" 

"FILLER" 

'PICTURE"  XXX"  VAL"UE""SPACET  - - 

CH 000057 

00059 

008190 

02 

LPARH 

PICTURE  XI9I . 

CH000057 

"0006  0  ” 

“008200” 

02“ 

FILLER” 

PICTURE  XXX  "VALUE  SPACE."  '  " 

CH000057 

00061 

008210 

02 

LHFG 

PICTURE  X ( 9 1 . 

CH000057 

”00062 

008220" 

“0?” 

FILLER 

PICTURE  XXX  VALUE  SPACE".  ” 

CH 000057 

00063 

008230 

02 

LINO 

PICTURE  XI 6 1 • 

CHO00057 

00065" 

”  0082*0” 

02 

"FILLER" 

"PICTURE  X'XX  VALUE  SPACE!  ' 

CH000057 

00065  - 

008250 

02 

LINOCO 

PICTURE  X. 

CH000057 

00066 

009010 

02 

FILLER  " 

"  PICTURE  XXX  VALUE  SPACE.” 

CH000057 

00067 

009020 

02 

LUOC 

PICTURE  XXXX. 

CH000057 

00068 

009030 

"02 

FILLER 

PICTURE  XXXX  VALUE  SPACE. 

CHOOOO  57 

00069 

0090*0 

02 

LRN 

PICTURE  X. 

CH000057 

”00070”” 

“009050" 

02” 

FILLER'" 

PICTURE"  "  XXXX  "VALUE  SPACE.  . 

'  "  CH000057 

00071 

009060 

02 

LPOS 

PICTURE  XI 9 1 . 

CH000057 

”00072 

'  009070 

”  02 

FILLER” 

"  PICTURE  XXX  VALUE  SPACE.  “"  ' 

CH000057 

00073 

009080 

02 

LNEG 

"PICTURE  XI 9 1 . 

CH000057 

0007*" 

009090" 

'  02 

FILLER" 

PICTURE"  XXX"  VALUE  SPACE." 

CH000057 

00075 

009100 

02 

LEQU 

PICTURE  XXX. 

CH000057 

”00076" 

"009110” 

”02 

FILLER 

PICTURE"  XXX"  VALUE  "SPACE. - - 

.  CH000057 

00077 

009120 

02 

LRCAL 

PICTURE  XI6I . 

CH000057 

00078  " 

”009130” 

02 

FILLER" 

PICTURE  XI61  VALUE  SPACE. 

CH000057 

00079 

009180 

01 

F-PAGE. 

CH000057 

00080"  " 

009190 

02 

FILLER” 

PICTURE  XI60I  VALUE  "SPACE.  ' 

CH000057 

00081 

009200 

02 

FILLER 

PICTURE  XI 61  VALUE  'C-FILE*. 

CH000057 

”00082 

“009210 

"  02” 

"FILLER” 

PICTURE  XC66I  "  VALUE  SPACE.  '  ■ 

. .  CH000057 

00083 

010010 

01 

HEADER. 

CH000057 

0008*  ” 

010020 

02 

FILLER 

PICTURE  X 1 991  VALUE  •  CELL  TYPE  CD 

RANGE  CH000057 

00085 

010030- 

• 

UNIT  CODE  PARAHETER  HFGR  ARO  I-NO  CODE 

UOC  RNCH000057 

00086 

0100*0- 

• 

• 

POS  RN 

CH000057 

00087 

010050 

02 

FILLER 

PICTURE  XI 331  VALUE  •  NEC  RN  UNITS 

R  OATE  CH000057 

"0008  8”” 

”010060-  ”” 

■r 

”  CH000057 

00089 

012010 

PROCEOURE  DIVISION. 

CH000057 

"00090 - r. . . . . 

00091  OPEN  INPUT  C-FIIE. 

00092 - OPEN  “0UTPUTLIS7 1 NG. - 

00093  WRITE  LIST  FROM  F-PAGE  AFTER  0. 


00095 

00095  REAO  C-FILE  AT  END  GO  TO  99. 

00095  rr'CF-RTTNOT’ =‘_'0 '  GOTO — 2. - 

00097  018200  IF  EJCT  >  52  HOVE  0  TO  EJCT 

"WOTS - 018210 - WRITE  LIST  FROM  MEADEITAFTER  SkP 

00099  018211  HOVE  *0'  TO  OSKP 

7ISTO0  “  018220'  . HOVE  *1»  TO  SKP.  . 

00101  **017150  HOVE  CF-TC  TO  LTC. 

00T0'2  '0T7160  HOVE'CF-TVPCO'TO  L'TVPCO." 

00103  017170 _  HOVE  CF-RNG  TO  LRNG.  _ 

TTOTO*  "  017180  ■  *  '  "HOVE  CF-RNGU  TO  LRNGU."' 

00105  017190  HOVE  CF-RNGCO  TO  LRNGCO. 

WffS - 017200 - HDvE  TF-PAWTITYPARH - 

00107  017210  HOVE  CF-HFG  TO  LHFG. 

"00108  017223 - MDVG”CF=lNa~TDTtNOY - 

00109  017230  HOVE  CF-INOCO  TO  LINOCO. 

00110  0172*0  "HOVE  CF-UOC  TO  LUDC. 

00111  017250  HOVE  CF-Rfl  TQ.LRN. 


CH000057 

CH0D0057 


CH000057 

CH000057 

CH000057 

CH 000057 
CH000057 
CH000057 
CH000057 
CH000057 
CH000057 
JfH0OJJO57 
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00112 

019010 

MOVE  CF-POS  TO  LPOS. 

CM000057 

TWITS- 

"OT902  0 

MOVE  CF-NEG  TO  LNEG.  . 

CM00005T 

00114 

01 8030 

MOVE  CF-EOU  TO  LEQU. 

CN00005T 

TVOTnr 

msffW - 

~MOVE'CF-RCAL  TO  LRCAL.  -  -  -  -  . 

CM00005T 

00116 

019050 

WRITE  LIST  FROM  DATALN  AFTER  DSKP. 

tout 

"a'oo'2'to  ejct:  . 

00119 

GO  TO  2. 

irorre- 

00120 

99. 

CLOSE  C-FILE  LISTING. 

noran 

“STOP  ■  RON':'  . . 

87 


AEDC-TR-71-109 


l 

00001 

coioi 

IDENTIFICATION 

DIVISION. 

CM000082 

00302 

00102 

PROGRAM- ID.  'CM000082* • 

CM000082 

0000  3 

00103 

AUTHDR.  ROSE. 

CMOOOO  82 

00004 

00104 

INSTALLATION. 

ARO  INC  TULLAHOMA  TENN. 

CM000082 

00005 

00105 

OATE-WRITTEN. 

CM000082 

00006 

00106 

DATE-COMPILEO. 

JAN  6. 1970 

CM000082 

00007 

00107 

SECURITY. 

CM000082 

00008 

OC 108 

REMARKS.  PROGRAM  UPDATES  RTF  C-FILE. 

CM000082 

00009 

00109 

ENVIRONMENT  OIVISION. 

CM000082 

00010 

00110 

CONFIGURATION  SECTION. 

CM000082 

00011 

00111 

SOURCE-COMPUTER 

.  IBM-360. 

CM000082 

00012 

00112 

08J  ECT-COMPUTER 

.  IBM-360. 

CM000082 

00013 

00113 

INPUT-OUTPUT  SECTION. 

CM003082 

00014 

00114 

FILE-CONTRDL. 

CM000082 

00015 

00115 

SELECT  GILMORE  ASSIGN  'GILIN*  UTILITY. 

CM000082 

00016 

00116 

SELECT  C-FILE  ASSIGN  'CF ILE '  UTILITY. 

CM000082 

00017 

00117 

SELECT  NEW 

-ONF  ASSIGN  'NUREC*  UTILITY. 

CM000082 

00018 

001171 

SELECT  LISTING  ASSIGN  'OOLIST*  UTILITY. 

CM000082 

00019 

001172 

SELECT  OPCARO  ASSIGN  •DP001*  UTILITY. 

CM000082 

00020 

00119 

DATA  DIVISIDN. 

CM000082 

00021 

00120 

FILE  SECTION. 

CM000082 

00022 

00201 

FD  GILMDRE 

RECORDING  F  BLOCK  1  RECORDS  RECORO  80 

CM000082 

00023 

00202 

LABEL  RECORDS  STANOARO  OATA  RECDRD  GILM. 

CM000082 

00024 

00203 

Cl  GILM. 

CM000082 

00025 

00204 

02  G-CND 

PICTURE  X 1 41 . 

CM000082 

00026 

02  GC ELL  REDEFINES  G-CNO. 

00027 

■03  GA 

PICTURE  X. 

00028 

03  G2 

PICTURE  XXX. 

30029 

00205 

02  G-CNT 

PICTURE  9. 

CMOOOO 82 

00030 

00206 

02  G-TYPCO 

PICTURE  X 1 71 . 

CM000082 

00031 

00207 

02  G-RANGE 

PICTURE  XI 71 . 

CM000082 

30032 

00208 

02  G-RUNIT 

PICTURE  XXX. 

CM 000082 

00033 

00209 

02  G-RCDOE 

PICTURE  X. 

CM000082 

00034 

00210 

02  G-PARM 

PICTURE  X( 9 1 . 

CM000082 

30035 

00211 

02  G-HFG 

PICTURE  X I  91 . 

CM000082 

00036 

00212 

02  G-ARONO 

PICTURE  X I 61  ■ 

CM000082 

30037 

00213 

02  G-AROCD 

PICTURE  X. 

CMOOOOB2 

00038 

00214 

32  G-UDC 

PICTURE  XXXX. 

CM000082 

00039 

00215 

32  G-RN 

PICTURE  X. 

CM000082 

00040 

00216 

02  G-POS 

PICTURE  X ( 9) • 

CM000082 

00C41 

00217 

02  G-NEG 

PICTURE  X I  9 1 • 

CM000082 

00042 

00218 

02  G-PEQ 

PICTURE  XXX. 

CM000082 

30043 

00219 

02  G-RCAL 

PICTURE  XI 6) ■ 

CM000082 

00044 

00331 

FO  C-FILE 

RECOROING  F  BLOCK  1  RECOROS  RECDRD  80 

CM000082 

00045 

03302 

LABEL  RECORDS  STANDARO  OATA  RECDRD  CFIL. 

CM000082 

00046 

00303 

01  CFIL. 

CM000082 

30047 

00304 

02  C-NO 

PICTURE  X 1 4 1 . 

CM000082 

00048 

0?  CCELL  REDEFINES  C-NO. 

03  Cl 

.PICTURE  X. 

00050 

03  C2 

PICTURE  XXX. 

00051 

O0305 

02  C-CNT 

PICTURE  9. 

CMQ00082 

00052 

00306 

02  C-TYPCO 

PICTURE  X  I  71 « 

CM000082 

00053 

00307 

02  C-RANGF 

PICTURF  X I  7 1  • 

CM000082 

C0054 

♦ 

00338 

02  C-RUNIT 

PICTURE  XXX. 

CM000082 
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00055 

00309 

02 

C-RCOOE 

PICTURE  X. 

CN000082 

00055 

00310 

02 

C-PARM 

PICTURE  X  1 9 1  • 

CH000082 

00057 

00311 

02 

C-MFG 

PICTURE  X  1 9 1 • 

CH0000S2 

0005B 

00312 

02 

C-ARDNO 

PICTURE  X I 6 1 . 

CMQ00032 

00059 

00313 

02 

C-AROCO 

PICTURE  X. 

CM000082 

00050 

00314 

02 

C-UOC 

PICTURE  XXXX. 

CH0000B2 

00051 

00315 

02 

C-RN 

PICTURE  X. 

CM300082 

00052 

00316 

02 

C-POS 

PICTURE  X 1 9 1 . 

CM000082 

00053 

00317 

02 

C-NFG 

PICTURE  XI 9) • 

CH000082 

00055 

00318 

02 

C-PEQ 

PICTURE  XXX. 

CH0000B2 

00055 

00319 

02 

C-RCAL 

PICTURE  XI 6) . 

CM000082 

30C55 

00401 

FD 

NEW- 

■ONE 

RECOROING  F  BLOCK  1  RECOROS  RECORO  SO 

CH003082 

00057 

00402 

LABEL  RECOROS  STANOARO 

DATA  RECORO  NU1. 

CH000082 

00058 

00403 

01 

NU 1 4 

CM000082 

00059 

00404 

02 

FILLER 

PICTURE  XI80I 

• 

CH000082 

00070 

004041 

FO 

LISTING  RECORDING  F  SLOCK 

12  RECORDS  RECORD 

132 

C 

00071 

004042 

LA8FL  RFCORDS  OHITTEO  DATA  RECORO  LIST. 

CH000082 

00072 

004043 

01 

LIST. 

CH000082 

00073 

004044 

02 

FILLER 

PICTURE  X  1 1 32 1 . 

CH000082 

00074 

004050 

FD 

OPCARO 

RECORDING  F  SLOCK 

1  RECOROS  RECORO 

30  - 

CM000082 

000  75 

004051 

LABEL  RECORDS  STANDARD 

OATA  RECORO 

□CARO. 

CH0000B2 

00076 

004052 

01 

□CARO. 

CM0000B2 

00077 

004053 

02 

OPT 

PICTURE  X. 

CM0Q008.2 

00078 

004054 

02 

FILLER 

PICTURE  XX. 

CM000082 

00079 

004055 

02 

OATE. 

CH030082_ 

00080 

004056 

03  HO 

PICTURE  99. 

CM000082 

00081 

004057 

03  OY 

PICTURE  99. 

CH000082 

00082 

004058 

03  YR 

PICTURE  99. 

CH000082 

OOOB3 

004059 

02 

FILLER 

PICTURE  X 1 70 1  • 

CN000082_ 

00084 

004060 

02 

CONH 

PICTURE  X. 

CM000082 

00085 

004051 

88  COM 

VALUE  *C'. 

CM0000B2 

00086 

**00406 

WORKING- 

-STORAGE 

SFCTION. 

\ 

CM000082 

00087 

004061 

77 

JECT  PICTURE  99  VALUE  60 

• _ 

000B8 

77 

JCAR  PICTURE  XI 61 . 

00089 

004070 

01 

LL1NE. 

CMOOO082 

00090 

004071 

02 

SK 

PICTURE  X 

VALUE 

•1*. 

CM000082 

00091 

004073 

02 

FILLER 

PICTURE  XXXX 

VALUE 

SPACE...  . 

CM000D82 

00092 

02 

L-CELL 

PICTURF  X. 

00093 

004075 

02 

FILLER 

PICTURE  XXXX 

VALUE 

SPACER 

CM0000B2 

00094 

004376 

02 

L-TYPCO 

PICTURE  XI7|. 

CMQ00082 

00095 

004077 

02 

FILLER 

PICTURE  XXXX 

VALUE 

SPACE. 

CH000082 

00096 

004378 

02 

L-RANGE 

PICTURE  XI 7 ) . 

CH000082 

30097 

004079 

02 

FILLER 

PICTURE  XXX 

VALUE 

SPACE. 

CH000082 

00098 

004080 

02 

L-UNIT 

PICTURE  XXX. 

CM000082 

00099 

004081 

02 

FILLER 

PICTURE  XXX 

VALUE 

SPACE. 

CM000082 

00100 

004082 

02 

L-COOE 

PICTURE  X. 

CH000082 

00101 

004083 

02 

FILLER 

PICTURE  XXX 

VALUE 

SPACE. 

CH000082 

00102 

004084 

02 

L-PARM 

PICTURE  XI 9 1 . 

CM000082 

00103 

004035 

02 

FILLER 

PICTURE  XXX 

VALUE 

SPACE. 

CH000082 

00104 

004086 

02 

L-MFG 

PICTURE  X I 91 . 

CM000082 

00105 

004087 

02 

FILLFR 

PICTURE  XXX 

VALUE 

SPACE. 

CH0000B2 

00106 

004083 

02 

L-ARONO 

PICTURE  XI 6 1 . 

CH000082 

00107 

004089 

02 

FILLER 

PICTURE  XXX 

VALUE 

SPACE. 

CH0000B2 

00108 

004090 

02 

L-ARDCD 

PICTURE  X. 

CM000082 

00109 

004091 

02 

FILLER 

PICTURE  XXX 

VALUE 

SPACE. 

CM000082 

00110 

004092 

02 

L-UDC 

PICTURE  XXXX. 

CM000082 

00111 

004093 

02 

FILLFR 

PICTURE  XXXX 

VALUE 

SPACE. 

CM000082 
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00112 

004094 

02 

L-RN 

PICTURE  X. 

CM000082 

00113 

004095 

02 

FILLER 

PICTURE  XXXX 

VALUE  SPACE. 

CMOOOO 8  2 

00114 

004096 

02 

L-POS 

PICTURE  XI9I. 

CM000082 

00115 

004097 

02 

FILLER 

PICTURE  XXX 

VALUE  SPACE. 

CM000082 

00116 

004098 

02 

L-MEG 

PICTURE  XI 9 1 . 

CM 000082 

00117 

004099 

02 

FILLER 

PICTURE  XXX 

VALUE  SPACE. 

CM000082 

00113 

004100 

02 

L-PEQ 

PICTURE  XXX. 

CM 000082 

00119 

004101 

02 

FILLER 

PICTURE  XXX 

VALUE  SPACE. 

CMOOOOB2 

00120 

004102 

02 

L-RCAL 

PICTURE  XI 6 1 • 

CM000082 

00121 

004103 

02 

FILLER 

PICTURE  XI 61 

VALUE  SPACE . 

.CM000082 

00122 

004200  01 

F-PAGE. 

CH000082 

00123 

.00421 

02 

FILLER 

PICTURE  XI 501  VALUE  SPACE. 

CM000082 

00124 

00422 

02 

FILLER 

PICTURE  XI 19)  VALUE  'RTF  TRANSDUCER  FILE'. 

CM000082 

00125 

00423 

02 

FILLER 

PICTURE  XI 63 1 

VALUE  SPACE. 

CM 000082 

00126 

00425  01 

HEAO. 

CM0000B2 

00127 

00426 

02 

FILLER 

PICTURE  X I  20 ) 

VALUE  •  CELL 

TYPE 

CD  ■  . 

CM000082 

00123 

00427 

02 

FILLER 

PICTURE  XI 201 

VALUE  'RANGE 

UNIT 

CODE  '. 

CM000082 

00129 

00428 

02 

FILLER 

PICTURE  XI 20 1 

VALUE  'PARAMETER 

MFGR  ' . 

CM000082 

00130 

00429 

02 

FILLER 

PICTURE  XI 201 

VALUE  •  ARD  I- 

NO  CODE  UDC • . 

CM000082 

00131 

00430 

02 

FILLER 

PICTURE  XI20) 

VALUE  •  RN 

POS 

RN  ». 

CMOOOO  82 

00132 

00431 

02 

FILLER 

PICTURE  XI 201 

VALUE  •  NEG  RN 

UNITS  '. 

CM 000082 

00133 

00432 

02 

FILLER 

PICTURE  XI 121 

VALUE  'R  DATE 

» 

00134 

00501  PROCEDURE  DIVISION. 

CM000082 

00135 

005011  N0TE1. 

CM000082 

00136 

005012 

NOTE 

IF  A  LISTING  OF  UPOATEO  FILE  IS  DESIRED 

,  PUNCH 

CM000082 

00137 

005013 

AN  'O'  IN  COLUMN 

1  OF  OPTION  CARO > 

ELSE 

LEAVE 

CM000382 

00138 

00  5014 

COLUMN  1  BLANK. 

CM000082 

00139 

005015  8GIN. 

1 

00140 

00502 

OPEN  INPUT 

GILMORE  C-FILE. 

CM000082 

00141 

00503 

OPEN  OUTPUT  NEW-ONE. 

CM000082 

00142 

005031 

OPEN  OUTPUT  LISTING.  . 

CHOOOOB2 

00143 

005032 

OPEN  INPUT 

OPCARO. 

CM000082 

00144 

00145' 

00146 

30147 

_00148 

00149 

00150 


005033 
00  5034 
00504 
00505 
00  506 


REAO  OPCARO  AT  ENO  GO  TO  CARO-ERR. 

IF'  COM  NEXT  SENTENCE  ELSE  GO  TO  CARD-ERR.' 
REAOGIL. 


REAO  GILMORE  AT  END  GO  TO  G-ENO. 
READ-C. 

00507  READ  C-FILE  AT  END  GO  TO  C-ENO. 

HOVE  C-AR3N0  TO  JCAR. 


CH000082 
CH000082_ 
CMOOOOB2 
CM 0000 82 
CM000082 


00151 

00152 

00508 

00509 

COM PR. 

IF  C-ARONO  <  G-ARONO 

CM000082 

CH000082 

00153 

00154 

00510 

005101 

WRITE  NU1  FROM  CFIL 

IF  OPT  =  'O'  PERFORM  MOV-CF  GO  TO 

1  REAO-C  ELSE 

CM00008  2 

00155 

00511 

GO  T0  REAO-C. 

CM000082 

00156 

IF  C-ARONO  «*  G-ARONO 

00157 

IF  C-AROCO  <  G-AROCD 

00158 

WRITE  NU1  FROM  CFIL 

00159 

IF  OPT  =  'O'  PERFORM  MOV-CF  GO 

TO 

REAO-C 

00160 

ELSE  GO  TO  REAO-C. 

00161 

00512 

IF1  C-ARDNQ  =  G-AROND 

CMOO008  2 

00162 

IF  C-AROCO  =  G-AROCO 

00163 

00513 

WRITE  NU1  FROM  GILM 

CM000082 

00164 

005131 

IF  OPT  =  'O'  PERFORM  MOV-GIL  GO 

TO 

REAOGIL  ELSE 

00165 

00514 

GO  TO  REAOGIL. 

CM000082 

00166 

00515 

WRITE  NU1  FROM  GILM. 

CM000082 

30167 

005151 

IF  OPT  =  'O'  PERFORM  MOV-GIL. 

CMOO0082 

00168 

.005^^. 

..  ^.JSSAD^GIkMOR^I.  EN^.W^fcENQ,. 

CMfiOp082 
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□  □169 

00517 

GO  TO  COMPR. 

CM000082 

00170 

00518 

C-ENO. 

CM000082 

00171 

00519 

WRITE  NU1  FROM  GILM. 

CM000082 

00172 

005191 

IF  OPT  =  *0'  PERFORM  MOV-GIL. 

CM000082 

00173 

00520 

REAO  GILMORE  AT  ENO  GO ' TO  ALLL. 

CH000082 

00174 

00521 

GO  TO  C-ENO. 

CM000082 

00175 

00522 

G-ENO. 

CM000082 

00176 

IF  JCAR  =  G-ARONO  GO  TO  GEE. 

00177 

00  524 

Gl.  WRITE  NU1  FROM  CFIL. 

CM000082 

00178 

005240 

GEE  . 

00179 

005241 

IF  OPT  =  'O'  PERFORM  HOV-CF. 

CM000082 

0018  0 

00525 

REAO  C-FILE  AT  ENO  GO"  TO  ALLL. 

CM000082 

00181 

00601 

GO  TO  Gl. 

CM000082 

00182 

006011 

CARO-ERR.' 

CM000082 

30183 

**006011 

DISPLAY  ‘OPTION  CARD  IOIOT-EO*. 

CM0000B2 

00184 

00602 

ALLL. 

CM000C82 

00185 

00603 

CLOSE  C-FILE  GILMORE  NEW-ONE. 

CM000082 

00186 

006031 

CLOSE  LISTING  OPCARD. 

CM000082 

00187 

00604 

STOP  RUN. 

CM000082 

00188 

007000 

MOV-GIL.  1 

CM000082 

00189 

MOVE  G-TYPCO  TO  L-TYPCO. 

00190 

MOVE  GA  TO  L-CELL. 

00191 

00704 

HOVE  G-RANGE  TO  L-RANGE 

CM000082 

00192 

00705 

MOVE  G-RUNIT  TO  L-UNIT 

CM000082 

00193 

00706 

MOVE  G-RCOOE  TO  L-COOE 

CM000082 

00194 

00707 

HOVE  G-PARH  TO  L-PARM 

CM000O82 

00195 

00708 

MOVE  G-MFG  .  TO  L-MFG 

CM000082 

00196 

00709 

MOVE  G-ARONO  TO  L-ARONO 

CN000082 

□  0197 

00710 

HOVE  G-AROCO  TO  L-AROCD 

CH003082 

00198 

00711 

HOVE  G-UOC  TO  L-UOC 

CM000082 

00199 

00712 

MOVF  G-RN  TO  L-RN 

CM000082 

00200 

00713 

HOVE  G-POS  TO  L-POS 

CM000082 

00201 

00714 

HOVE  G-NEG  TO  L-NEG 

CM000082 

00202 

00715 

MOVE  G-PEO  TO  L-PEQ  . 

CM000082 

00203 

00716 

HOVE  G-RCAL  TO  L-RCAl 

CM000082 

00204 

00717 

AOO  1  TO  JECT . 

CM000082 

00205 

00718 

PERFORM  C JECT 

CM000082 

00206 

00719 

WRITE  LIST  FROM  LLINE  AFTER  SR.  MOVE  •  •  TO  SK. 

CM000082 

0020  7 

0C720 

CJECT. 

CM003082 

□0208 

00721 

IF  JECT  >  52 

CM000082 

00209 

MOVE  'O'  TO  SK 

00210 

00723 

WRITE  LIST  FROM  HE AO  AFTER  0 

CM000082 

00211 

00724 

MOVE . C  TO  JECT. 

CM000082 

00212 

008300 

HOV-CF. 

CM000082 

00213 

MOVE  Cl  TO  L-CELL. 

30214 

00903 

MOVE  C-TYPCD  TO  L-TYPCO. 

CM000082 

00215 

00  834 

MOVE  C-RANGE  TO  L-RANGE. 

CN000082 

00216 

00805 

HOVE  C-RUNIT  TO  L-UNIT 

CM00Q082 

00217 

00836 

MOVE  C-RCOOE  TO  L-COOE 

CM000082 

00218 

00837 

MOVE  C-PARM  TO  L-PARM 

CM00008  2 

00219 

□  0808 

MOVE  C-MFG  TO  L-MFG. 

CM000082 

30220 

00809 

MOVE  C-ARDNO  TO  L-ARONO 

CM000082 

00221 

00810 

MOVF  C-AROCO  TO  L-AROCD 

CM000082 

00222 

00811 

MOVE  C-UOC  TO  L-UOC 

CM000082' 

00223 

□  0812 

MOVE  C-RN  TO  L-RN 

CM003082 

0C224 

00813 

MOVE  C-POS  TO  L-POS 

CM000082 

30225 

00814 

MOVE  C-NEG  TO  L-NEG 

CM000382 
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00226 
30227 
0022  B 
00229 
00230 
00231 


00815  MOVE  C-PEQ  TO  L-PEQ 

00816  MOVE  C-RCAL  TO  L-RCAL 

00817  AOO  1  TO  JECT.  _ 

00818  PERFORM  CJECT. 

00819  WRITE  LIST  FROM  LLINE  AFTER  SK. 

00820  "  MOVE  •  ■  TO  SK. 


CM000082 
CM000082 
-CM 00008  2 
CM000082 
CH000082 
CM000082 


92 
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OOOOl  0C131C  I DENT I FIC AT  ION  OIVISION. 

30002  OC  102  0  PROGRAM-IO.  ^000057'  . 

00003  001030  AUTHOR.  JACK  ROSF. 

30034  CO  1040  INSTALLATION.  ARC  INC. 

30000  C'31350  DATE-WR ITTFN.  OEC  1967. 

00006  001360  (1AT F-COMP I  LEO .  JAN  6,1970 

0000  7  C91C70  SEC'JR  I  TV  . 

OOOCB  001380  REMARKS.  PROGRAM  UPOATES  RTF  TRANSOUCER  FILE. 
00309  001090  FNVIR.ONMENT  0IVIS10N. 

00010  301100  CONFIGURATION  SFCT10N. 

00011  001110  SOURCE-COMPUTER.  IBM-360  H50. 

00012  001120  OBJECT-COMPUTER.  IBM-360  H50. 

00013  0 0 1 1 3 C  INPUT-OUTPUT  SECTION. 


CM000057 
CM000057 
CM000057 
CH000057 
CH000057 
CMO0O057 
CM000057 
CM000057 
CMOObOST 
CM000057 
"  CH00'0b57 
CM0OOO57 
CM000057 ' 


00014 

OC 11 40 

FILE 

-CONTROL. 

CM000057 

00015 

001150 

SELECT  C-FILE 

ASSIGN  • 

CFC01 • 

UTILITY. 

CM000057 

00016 

001160 

SELECT  C-IN 

ASSIGN  ■ 

CN001 ' 

UTILITY. 

CM000057 

30017 

001170 

SELECT  KAROS 

ASSIGN 

•COOOl* 

UTILITY. 

CH000057 

30018 

ooiise 

SELECT  NU-FILE 

ASSIGN 

*NF  00  1 

UTILI  TY. 

CM000057 

30019 

CC 1190 

SELECT  OUTF ILe 

ASSIGN 

•OTOOl' 

UTILITY. 

CH000057 

00320 

001200 

SELECT  LISTING 

i  ASSIGN 

•LTOOl* 

UTILITY. 

CM0O3O57 

00021 

301220 

DATA  DIVISION. 

CH000057 

00022 

001233 

FILE  SECTION. 

00023 

002010 

FO 

C-FILE  RECORDING  F 

BLOCK  1 

RECOROS  RECORO  BO 

CMOOOC57 

30024 

002023 

LABFL 

RECORDS 

OMI TTED 

i  OATA  RECORO  C-FIL. 

CM000057 

0002  5 

002030 

01 

C-FIL. 

CM 000057 

00026 

002031 

02 

CF-TC 

PICTURE 

X  . 

CM000057 

00027 

002040 

02 

CF-NI3 

PICTURE 

XXX. 

CM000057 

00028 

002050 

02 

CF-CNT 

PICTURE 

9. 

CM000057 

00029 

002060 

02 

CF-TYPCD 

PICTURE 

XI  71. 

CM000057 

00030 

002070 

C? 

CF-RNG 

PICTURE 

XI  7)  . 

CM000057 

00C3I 

002080 

02 

CF-RNGU 

PICTURE 

XXX. 

CM000057 

00032 

002090 

02 

CF-RNGCO 

PICTURE 

X. 

CM000057 

00333 

00210" 

02 

CF-PARH 

PICTURE 

XI  91. 

CM000057 

00034 

032110 

02 

CF-MFG 

PICTURE 

XI  9). 

CM000057 

00035 

**  09 

02 

CF- 

INCO. 

00036 

10 

03 

CF-INO  PICTURF  X16). 

00037 

1 1 

03 

CF-INOCD 

PICTURE 

X. 

00038 

002140 

02 

CF-UOC 

PICTURE 

X  {  4 1  . 

CM000057 

00039 

002 150 

02 

CF-RN 

PICTURE 

X. 

CM000057 

00040 

002160 

02 

CF-POS 

PICTURE 

XI  91. 

CM 000057 

00041 

002170 

02 

CF-NEG 

PICTURE 

X  I  9  1  • 

. 

CN000057 

00342 

002130 

02 

CF-EQU 

PICTURF 

XXX. 

CM000057 

00043 

*•  20 

02 

CF-RCAL. 

30044 

21 

03  CF»MO 

PICTURE  XX. 

00045 

22 

03  cfroy 

PICTURE  XX. 

00046 

23 

03  CFRYR 

PICTURE  XX. 

00047 

0933 l G 

FD 

KAROS 

RECORDING  F 

BLOCK  10 

RECORDS  RECORD 

80 

CHO 

00048 

003320 

LABEL 

RECORDS  STANDARO  OATA 

RECORDS  N-CD  C-CD 

O-CD. 

CMOOOC57 

30049 

00303'’ 

01 

N-C.9. 

CMOO0057 

00050 

003040 

02 

N-TC 

PICTURE 

X. 

CM000057 

0005  1 

003941 

02 

N-NO 

PICTURE 

XXX. 

CM000057 

00C52 

003350 

02 

N-CNT 

PICTURE 

9. 

CM000057 

30053 

C0306C 

02 

N-TYPCO  PICTURE 

XI  71  . 

CM000057 

90054 

00  3070 

02 

N-RNG 

PICTURE 

XI  71. 

CM000057 
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00055 

003080 

02  N-RNGU 

PICTURE  XXX. 

CM000057 

00056 

003090 

02  N-RNGCO 

PICTURE  X. 

CM000057 

00057 

003100 

02  N-PARM 

PICTURE  XI  9 )  • 

CM000057 

0005  6 

003110 

02  N-MFG 

PICTURE  XI 9). 

CM000057 

00059 

003120 

02  N-INO 

PICTURE  XI 61 . 

CN000057 

00060 

003130 

02  N-INOCO 

PICTURE  X. 

CM000057 

30061 

0C3140 

02  N-UDC 

PICTURE  XXXX. 

CM003057 

00062 

003150 

02  N-RN 

PICTURE  X. 

CM000057 

00063 

003160 

02  N-POS 

PICTURE  XI9I. 

CM000057 

00064 

003170 

02  ll-NEG 

PICTURE  XI 9 1 • 

CM000057 

00065 

003180 

02  N-EQU 

PICTURE  '  XXX. 

CM000057 

00066 

003190 

02  N-RCAL 

PICTURE  XI 6 1 . 

CN000057 

00067 

004010 

01 

C-CO. 

CM000057 

00068 

004020 

02  C-PARM 

PICTURE  X (91 • 

CN000057- 

00069 

00403C 

02  RC-PARM 

REOEFINES  C-PARM. 

CM000057 

00070 

004040 

03  RC- 

PI  PICTURE  X 1 6 ) . 

CM000057 

00071 

004050 

03  FILLER  PICTURE  X. 

CM000057 

00072 

004360 

03  RC- 

P2  PICTURE  X. 

CM000057 

00073 

004070 

03  FILLER  PICTURE  X. 

CM000057 

30074 

004080 

02  C-INO 

PICTURE  X 1 6 1 • 

CN000057 

00075 

0C4090 

02  C-INOCD 

PICTURE  X. 

CH000057 

00076 

0C410O 

02  C-UOC 

PICTURE  XXXX. 

CM000057 

30077 

004110 

02  C-RN 

PICTURE  X. 

CM000057 

00078 

004120 

02  C-POS 

PICTURE  X 1 9) . 

CH000057 

00079 

004130 

02  C-NEG 

PICTURE  X 1 91 . 

CH000057 

00080 

004140 

02  C-RCAL 

PICTURE  X (6) . 

CM000057 

00081 

004150 

02  C-TC 

PICTURE  X. 

CM000057 

00082 

004160 

02  FILLFR 

PICTURE  X 1 341 . 

CN000057 

00083 

005010 

_01 

CI-CD. 

CMOOOC57 

00084 

005020 

02  O-OPT 

PICTURE  X. 

CM000057 

00085 

005030 

88 

08-0PT  VALUE  *0». 

00086 

005040 

02  3-PP 

PICTURE  XX. 

CM000057 

30087 

005350 

02  3-0 ATE • 

CM000057 

00088 

005060 

33  O-HO  PICTURE  99. 

CM000057 

00089 

005070 

03  O-OY  PICTURE  99. 

JM000057 

00090 

005080 

03  O-YR  PICTURE  99. 

CN000057 

00091 

005090 

02  FILLER 

PICTURE  XI 701. 

CN000057 

00092 

005100 

02  a-c 

PICTURE  X. 

CM000057 

0009  3 

005110 

88  08- 

C  VALUE  «C*. 

CN000057 

00094 

005130 

FO 

OUTFILE  RECOROING  F  BLOCK  1  RECORDS  RECORO  80 

CM000057 

00095 

005140 

.  LABEL  RECOROS  STANOARO 

OATA  RECORO  OUTFIL. 

CM000057 

00096 

005150 

01 

OUTFIL. 

CN000057 

00097 

005160 

02  FILLER 

PICTURE  XI 60 1 • 

CM000057 

00098 

006010 

FO 

C-IN  RECORO ING  F  BLOCK  l  RECORDS  RECORO  80 

00099 

CO  60  20 

LABEL  RECOROS  STANDARO 

OATA  RECORO  CTIN. 

CN000057 

C010C 

006030 

01 

CT  IN. 

CNOOOC57 

00101 

02  CTIN52 

PICTURE  X I  52 ) . 

00102 

C2  CTINRN 

PICTURE  X. 

00103 

02  CTINBO 

PICTURE  XI 271  . 

00104 

006060 

FO 

LISTING  RECOROING  F  BLOCK  12 

RECOROS  RECORO  132 

00105 

006070 

LA8FL  RECOROS  OMITTED 

DATA  RECORO  LISTT. 

CM000057 

00106 

006080 

01 

LIST  PICTURE  XI132I. 

CMOOOC57 

00107 

0C6090 

FO 

NU-FILE 

RECOROING  F  BLOCK  25 

RECOROS  RECORO  80 

00108 

006100 

LABEL  RECOROS  STANDARD  OATA  RECORO  NU-FIL 

0C1C9 

006110 

01 

NU-FIL. 

0C110 

00612G 

02  FILLFR 

PICTURE  XI80I. 

0011  l 

007C10 

WORKING-STORAGE 

SECTION. 

CM000057 

94 
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00112 
00113'  ' 
00114 

0  011  5 

30116 

30117 
00118 

007020 
'  00703  0' 
007340 
" 007350 
037060 
"  007070 
007080 

77 
77 
77 
'77' 
77 
77  ' 
77 

SW  PICTURE  9 

KBX S ""  PICTURE  9 
CSV  PICTURE  9 

SUB  "  PICTURE- 99 

SUB1  PICTURE  99 

“SKP  PICTURE  'X'" 

EJCT  PICTURE  99 

VALUE 

VALUE 

VALUE 

VALUE 

VALUE 

VALUE 

VALUE 

0. 

0. 

0. 

'6. 

0. 

•O'  . 

59. 

00119 

007090 

77 

OSXP 

PICTURE  X 

VALUE 

•O'. 

00120 

007100 

77 

SW2 

PICTURF  .9 

VALUE 

0. 

00121 

. 

77 

CQSW 

PICTURE  9 

VALUE  0 

00122 

007110 

77 

J 

PICTURE  99 

VALUE  0 

00123 

007120 

77 

CBS 

PICTURE  X  VALUE  SPACE. 

00124  **007020 

77 

CDC 

PICTURE  XI 61  VALUE  SPACE. 

00125  **  01 

01 

CT-H0L01. 

00126 

02 

02 

CTHl  PICTURE 

XI41 1  . 

00127 

03 

02 

CTHNO  PICTURE 

X 1  7)  • 

00128 

04 

02 

CTH1B  PICTURE 

X ( 26 ) • 

00129 

05 

02 

CTHHO  PICTURE 

XX. 

00130 

06 

02 

CTHOY  PICTURE 

XX. 

00131 

07 

02 

CTHVR  PICTURE 

XX. 

00132 

12 

01 

CT-HOL02. 

00133 

13 

02 

CTH2  PICTURE 

XI 80 1 . 

00134 

14 

01 

CT-H0L03. 

00135 

15 

02 

CTH3  PICTURE 

XI 80 1  . 

00136 

16 

01 

CT-H0L04. 

00137 

17 

02 

CTH4  PICTURE 

X 1 80 ) . 

00139 

18 

01 

CT-H3L05. 

00139 

19 

02 

CTH5  PICTURE 

XI 80 ) . 

00140 

007130 

01 

HOLO 

-TESTCELL. 

00141 

007140 

02 

HRC-PC  PICTURE 

X  OCCURS  10. 

00142 

00S081 

01 

OATALM. 

00143 

008062 

02 

FILLER 

00144 

008090 

02 

LTC 

'00145" 

"6"o  sio  o'" 

02' 

"  FILLER' 

00146 

008110 

02 

LTVPCD 

00147 

008120  " 

02' 

FILLER" 

00148 

008130 

02 

LRNG 

"00149 

'008140  " 

02 

"FILLER' 

00150 

00815C 

02 

LRNGU 

"cSoTST 

009160 

02 

FILLER' 

00152 

008170 

02 

LRNGCO 

00 153  '" 

008 180 

02" 

FILLER 

00154 

008190 

02 

LPARH 

00155 

008200 

02 

FILLER 

00156 

008210 

02 

LMFG 

30157 

008223 

02 

"FILLER 

00158 

008230 

02 

LINO 

00159' 

0082  40" 

02 

FILLER 

00160 

OOR250 

02 

LINOCD 

' 00161" 

"009010 

02 

FILLER 

00162 

009020 

02 

LUOC 

“OO  16*3 

OC9030 

02 

""filler" 

00164 

009040 

02 

LRN 

00165 

009350 

02 

FILLER 

00166 

009060 

02 

LPOS 

'00167 

009370'" 

C2 

fi'E'le'r 

00168 

009080 

02 

LNEG 

PICTURE  XI 4 )  VALUE  SPACE. 
PICTURE  X. 

PICTURE  XI 41  VALUE  SPACE. 
PICTURE  X I  7) . 

PICTURE  Xl~4)  VALUE  SPACE.' 

PICTUR|_XI7).  _  _  _ 

PICTURE  XI 3 1  VALUE  "SPACE. 
PICTURE  XXX. 

PICTURE  XXX  VALUE  SPACE'."  ' 
PICTURE  X. 

PJCTURE  "XXX  VALUE  SPACE.  "' 

PICTURE  XI  91  . _ _ 

'PICTURE  XXX"  VALUE  SPACE. 

PICJURE  X|9>. _ _ 

.PICTURE  XXX  VALUE  SPACE. 
PICTURE  XI 61 • 

PICTURE  XXX  VALUE'  SPACE. 
PJCTURE  X. 

picture'  xx'jf "  value  's'paceT 

_ P ICTURE _ XX  XX  . _ _ _ 

"PICTURE  x'xxx  VALUE  SPACE. 

_ PICTURJ _ X. _ 

PICTURE  XXXX  VALUE  SPACE. 
PICTURE  XI 9 ) .  _ 

PICTURE'  XXX  VALUE  SPACE. 
PICTURE  XI 91  .  .  . 


CM000057 

CM300057 

CM000057 

CM000057 

_CR003C57 

CM000057 


CM000057 
CN000057 
CM000057 
CM000057 
CM000057 
CM000057 
CM300057 
CMOOOO'57 
CM000057 
CH060057' 
CN030057 
CHOOO657' 
CH000057 
CM000057 
CH000057 
CM000057 
CH000057 
CH 000 05 7 
CM000057 
CM000057 
CM000057 
CH000057 
CN000057 
'  CHOO'bb'57 
CM000057 
"CHO 00057 
_CH000057 
CM000057 
CM000057 
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00164 
00170 
00171 
00 172 
00173 
00174 
00175 
00176 
00177 
00178 
00179 
00180 
00181 
00182 
00183 
00184 
00185 
00186 
00187 
00183 
001B9 
00190 
00191 
00192 
00193 
00194 
00195 
00196 
30197 
00193 
00194 
00200 
00201 
00202 
C0203 
00204 
00205 
0C206 
00207 

0020a 

00209 

00210 

00211 

OC212 

00213 

00214 

00215 

00216 

00217 

00218 

00219 

00223 

00221 

00222 

00223 

00224 

00225 


009090 

02 

FILLER 

PICTURF 

XXX 

VALUE 

SPACE. 

CM000057 

009100 

02 

LE9U 

PICTURE 

XXX. 

CM000057 

009110 

02 

FILLER 

PICTURE 

XXX 

VALUE 

SPACE. 

CM000057 

0091 20 

02 

LRCAL 

PICTURE 

XI  6) 

• 

CM000057 

009130 

02 

FILLER 

PICTURE 

XI  6 1 

VALUE 

SPACE. 

CM000057 

009180  31 

F-i 

PAGE. 

CM000057 

02 

FILLER 

PICTURE  XI 101 

VALUE 

SPACE. 

02 

FILLER 

PICTURE  X I 108 1 

VALUE 

■RTF,  J-INSTRUMENT 

BRANCH, 

•MASTER  TRANSOUCER  INVENTORY  ANO  ASSIGNMENT  LISTING  IC-FILEI 


- 

1 

RUN  OATE  •. 

02 

PRHO 

PICTURE 

99. 

02 

FILLER 

PICTURE 

X  VALUE 

02 

PROY 

PICTURE 

99. 

02 

FILLER 

PICTURE 

X  VALUE 

02 

PRYR 

PICTURE 

99. 

02 

FILLFR 

PICTURE 

X  161 

VALUE  SPACE. 

01 

F-I 

PAGES. 

02 

FILLER 

PICTURE 

Xt  101 

VALUE  SPACE 

• 

02 

FILLFR 

PICTURE 

X 1  32 1 

VALUE  ^TRANSDUCERS  BY  INSTRUMENT  NU 

- 

• MBER ' . 

02 

FILLER 

PICTURE 

XI 90 

VALUE  SPACE 

• 

010010  01 

HEAOFR. 

CM000057 

010020 

02 

FILLER 

PICTURE 

X I  991 

VALUE  • 

CELL  TYPE  CO 

RANGE  CM000057 

010030- 

• 

UN I T  COOE  PARAMETER 

MFGR 

ARO  I -NO  COOE  UOC 

RNCM000057 

010040- 

■ 

POS  RN 

*. 

CM000057 

010053 

02 

FILLER 

PICTURE 

X I  33 1 

VALUE  1  NEG  RN  UNITS  R 

OATE  CM000057 

010050- 

« 

■ . 

CM 000057 

012010 

020000 

020313 

020020 

020030 

020040 

020050 

020060 


PROCFDJRE  DIVISION. 

N0TE1. 

NOTE  CAROS  USEO  TO  AOO  OR  REPLACE  AN  ENTIRELY'  NEW  REC3R0 
MUST  3E  PRECEEOEO  WITH  A  HEAOER  CARO  WHICH  HAS  'HEAO-N' 

PUNCHED  IN  COLUMNS  75  -  BO  THESE  CAROS  MUST  BE  SORTEO 

70  ARO-I-NO  COLUMNS  42  -  47  ASCENDING  SEQUENCE  ALSO  CM000057 

THE SF  MUST  8E  FIRST  UPOATE  CAROS  SUPPLIEO. 

N0TE2 . 

N3TE  THE  NEXT  TYPE  OF  UPOATE  CARO  IS  USEO  TO  MOOIFY 
OR  OELETE  AN  EXISTING  RECORO  THESE  CARDS  MUST  BE 
PRECEEOEO  BY  A  HEAOER  CARO  WHICH  HAS  'HEAD-C'  PUNCHEO 
IN  COLUMNS  75  -80  CAROS  MUST  BE  SORTEO  TO  ARO-N0 

COLUMNS  10  -  15  ASCENDING  SEQUENCE.  .  '  CM000057' 


CM000057 

CM000057 

CM000057 

CM000057 

CM000057 


CM000057 

CM000057 

CM000057 

CM000057 

CM000057 


**012024 

FIRSTT. 

**012020 

OP  FN 

INPUT  C- 

IN. 

012030 

OPEN 

OUTPUT  C 

-FILF. 

**  01 

AO. 

RE  AO 

C-  IN 

AT 

ENO  GO  TO 

Al. 

02 

A2 . 

MOVE 

C T  IN 

TO 

CT-H0L01. 

MOVE 

CT  IN 

TO 

C-FIL. 

03 

RE  AO 

C-  IN 

AT 

FNO  GO  TO 

Al. 

04 

MOVE 

CT  IN 

TO 

CT-H0L02. 

05 

REAO 

C-  IN 

AT 

END  GO  TO 

Al. 

04 

HOVE 

CT  IN 

TO 

CT-HOLO  3 . 

07 

REAO 

C-  IN 

AT 

ENO  GO  TO 

Al. 

08 

MOVE 

C  T  IN 

TO 

CT-H0L04. 

09 

REAO 

c— in 

AT 

ENO  GO  TO 

Al  . 

IF  CT1NRN 

NOT 

=  •4'  GO 

TO  AO-ERR 

11 

MOVE 

ctin 

TO 

CT-H0L05. 

13 

A3. 

14 

READ 

C-  IN 

AT 

ENO  GO  TO 

Al. 

CM000057 

CM000057 
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0D22  6 

MOVE  CT IN  TO  C-FIL. 

00227 

15 

IF  CF-RN  NOT  =  '0*  GD  TD  AO-ERR. 

00228 

16 

IF  CF-1NCD  «  CTHNO  GO  TD  ACTl. 

00229 

18 

WRITE  C-FIL  FRDM  CT-HOLOl. 

00230 

19 

WRITE  C-FIL  FROM  CT-H0L02. 

00231 

20 

WRITE  C-FIL  FROM  CT-H0L03. 

00232 

21 

WRITE  C-FIL  FROM  CT-H0L04. 

00233 

22 

WRITE  C-FIL  FROM  CT-H0L05. 

00234 

23 

GO  TO  A2. 

00235 

**  01 

ACTl. 

00236 

02 

IF  CFRYR  >  CTHYR  GO  TO  A2 . 

00237 

03 

IF  CFRYR  <  CTHYR  GO  TD  ACT2. 

00238 

04 

IF  CFRMO  >  CTHMO  GO  TO  A2 . 

0023.9 

05 

IF  CFRMO  <  CTHMO  GO  TO  ACT2. 

00240 

06 

IF  CFROY  >  CTHDY  GO  TD  A2. 

00241 

07 

IF  CFROY  <  CTHDY  GO  TD  ACT2. 

00242 

08 

GO  TO  A2. 

00243 

09 

ACT2. 

00244 

ID 

READ  C— IN  AT  ENO  GO  TO  Al. 

00245 

11 

READ  C- IN  AT  ENO  GO  TO  Al. 

00246 

12 

READ  C— IN  AT  END  GO  TO  Al. 

0D247 

13 

RE AO  C— IN  AT  ENO  GO  TO  Al. 

00248 

14 

GO  TO  A3. 

00249 

15 

AO-ERR.  DISPLAY  *8A0  FILE*  CF-INCO. 

D025D 

16 

READ  C- IN  AT  END  GD  TD  Al. 

00251 

MOVE  CTIN  TO  C-FIL. 

00252 

17 

IF  CF-RN  NOT  -  *0*  GD  TO  AO-ERR. 

0D253 

18 

GO  TO  A2. 

00254 

012080 

Al. 

CH00D057 

00255 

20 

WRITE  C-FIL  FROM  CT-HOLOl. 

00256 

21 

WRITE  C-FIL  FROM  CT-H0LD2. 

00257 

22 

WRITE  C-FIL  FROM  CT-H0LD3. 

00258 

23 

WRITE  C-FIL  FROM  CT-H0LD4. 

00259 

24 

WRITE  C-FIL  FROM  CT-H0L05. 

0026D 

012090 

CLOSE  C— IN  C-F1LE. 

CM000057 

00261 

012100 

OPEN  INPUT  KAROS. 

CM000057 

00262 

012110 

RE AO  KAROS  AT  ENO  GD  TO  NO-DP. 

CMDDD057 

00263 

012120 

IF  O-OPT  NOT  =  'O'  GO  TO  ND-DP. 

CM000057 

00264 

MOVE  O-MD  TO  PRMD. 

00265 

MOVE  O-OY  TO  PRDY. 

00266 

MOVE  O-YR  TO  PRVR. 

00267 

012130 

READ  KAROS  AT  END  GO  TO  END- JOB. 

00268 

D1214Q 

IF  N-RCAL  -  •  HEAO-N ’  GO  TD  PAR-B. 

CMDD0057 

00269 

012150 

IF  N-RCAL  =  •  HEAO-C '  GO  TO  PAR-A. 

CN000057 

0027D 

012160 

DISPLAY  'NO  HEADER  CARD  •  STOP  RUN. 

CM0D0057 

00271 

012170 

NO-OP. 

CM000057 

00272 

012180 

01  SPLAY  'NO  DPTIDN  CARO  •  STOP  RUN. 

CM000057 

00273 

012190 

PAR-B. 

CMDD0057 

00274 

012200 

READ  KARDS  AT  END  GO  TO  PAR-ZZ. 

CH000057 

00275 

IF  N-RCAL  «  • HEAD-C •  GO  TO  PAR-A. 

00276 

012210 

OPEN  1-0  C-FILE.  OPEN  OUTPUT  NU-FILE. 

CM000057 

00277 

012220 

PAR-Bl. 

CMD0D057 

00278 

012230 

REAO  C-FILE  AT  ENO  GO  TO  CBX. 

CH000057 

00279 

013010 

PAR-B2 . 

00280 

D13020 

IF  CF-INO  <  N-INO  WRITE  NU-FIL  FROM  C-FIL 

00281 

D13030 

GO  TO  PAR-Bl. 

00282 

013040 

IF  V-INO  >  N-IND  J5D  TO  B2XXXV 

’ 
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00283  013050 _ IJF  CF-INOCD  >  N-INOCO  GO  TO  B2XXX. 

00284  013060  I  F' CF-  INOCD  <  N-INOCO  “ 

002B5  013070 _ HOVE_CF-!Ng  TO_COC _ _ _ 

002B6  01308Q  PERFORM  URN  'THRU'wRNX'  5“  “flNES" 

002B7  013090  _  GO  TO  PAR-62* 

002BB  013100  1. 

_002B9_  _0l_3ll0 _ IF  CF-RN  <  N-RN  GO  TO  2. 

00290  013120  IF  CF-RN  >  N-RN  OISPLAY  '1312'  CF-INO  GO  TO  PAR-B1 . 

_002_91 J013130 HOVE  CF-INO  TO  COC. 

00292  ■"  MOVE  CF—INOCO  TO  CBS. 

_P0293 _  013140  _  WRITE  NU-FIL  FROM  N-CO.  READ  KAROS  AT_  ENO  GO  TO  PAR-ZZ. 

00294  013141  IF’  fc-RCAL  NOT  =  «HEAO-C'  GO  TO  6. 

00295  013142  8.  IF  CF-RN  =  *4'  MO'VE  l  TO  KBXS  GO  TO  KBX . 

00296  013143“  READ  C-FILE  AT  ENO  GO  TO  CBX2.“ 

_00297  013144 _ WRITE  NU-FIL  FROM  C-FIL. 

00298  -  013145  '  '  G'O  fo  S.  ”  ' 

_0029? _ 6..  IF  COC  -_N-_INO_IF  CBS  =  N-INOCO  _G0  TO  3. 

00300  013160  5.'  IF  CF-RN  =  *4'  GO  TO  PAR-B1. 

00301 _ 013170 _ READ  C-FILE.  AT  ENO  GO  TO  CBX. 

00302  013180  WRITE' NU-FIL  FROM  C-Fil. 

003.03  013190  GO  TO  5 .  _ 

“00304  013200  2.  '  "  '  “ 

00305  _ 013210. _ MOVE.  CF-INO.  TO  COC  _ 

00306  0 132 2*0  ‘  WRITE  NU-FIL  FROM  C-FIL. 

00307  013230  3. _ _ 

0030B  013240  RE  AO  C-FILE  AT  ENO  GO  TO  CBX. 

00309  01325g  IF  CF-INO  »  COC  GO__TO  PAR-_B2. _ _ 

00310  014010  01  SPLAY  *140i'  GO  TO  PAR-Bl. 

003H  014020  WRN . _ _  _  _  . _ _ 

00312  014030  IF  COC  NOT  »  CF-INO  GO  TO  WRNX. 

00313  014040  WRITE  NU-FIL  FROM  C-FIL. _ _ ; _ 

00314  014050  REAO  C-FILE  AT  END  GO  TO  CBX. 

00J15  _ 01 4060_WRNX. _ _ _  _ _ _ 

'00316  6[407b  EXIT. 

003l_7 _ 0140B0  B2XXX. _  _ 

00318  MOVE  N-INOCO  TO  CBS. 

00319  014090  _  MOVE  N-INO  TO  COC.  _ 

00320  014100  “MOVE  O  TO  J. 

00321  014110  WNU. _ _ 

00322  014120  WRITE  NU-FIL  FROM  N-CO. 

00323 014130  AOO  l  J  GIVING  J.  _ 

00324  014140  IF  CDC  flOT  =  N-INO  OISPLAY  *1414'  GO  TO  PAR-B2. 

00325  014150  7.  _  _ 

00326  014160  REAO  KAROS  AT  END  GO  TO  PAR-ZZ. 

J0327  _ IF  N-RCAL  =  !_HE_AD--C «  GO _TD  ^9. _ _ _ 

0032B  014180  IF  J  ND_T  =  5  GO  TO  WNU. 

00329  014190  IF  COC  =  N-IND  IF  CBS  =  N-INOCD  OISPLAY  »1419  «  COC  CBS 


00330  014191  GO  TD  7. 

00331 _  014200  _  .GO.  TO  PAR-B2. _  _ _  _ 

00332  89.  WRITE  NU-FIL  FROM  G-FIL.  g"0  TO  b’. 

00333  **013130  CBX. _ _ _ CM000057 

00334  013160  WRITE  NU-FIL  FROM  N-CO.  CM00005T 

00335  **013140 _  REAO  KAROS  AT  ENO  GO  TO  CBX1.  _  _  _ CH000057 

00336  013150  IF  N-RCAL  =  «HEA"o-Cr  GO'fO  CBX2.  *  ***  CM000057” 

00337  _  013170  GO  TO  CBX. _ _ CM000057 

00338  01 3100  CBX2.  “  "  CH00005T 

00339  013190  CLOSE  C-FILE  NU-FILE.  CM000057 
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00340 

013200 

OPEN  INPUT  NU-FILE. 

CM00DD57 

0C341 

013210 

OPEN  OUTPUT  C-FILE. 

CM000057 

00347 

013220 

CBX3. 

CHDD0057 

00343 

013230 

READ  NU-FILE  AT  END  GO  TO  CBX22. 

CMDDD057 

0C344 

01 3240 

WRITE  C-FIL  FROM  NU-FIL. 

•  CM000057 

00340 

01325C 

GO  TO  CBX3. 

CH000057 

DD346 

Cl 40 10 

CBX22. 

CM0DD057 

30347 

014020 

CLDSE  C-FILE  NU-FILE. 

CH000C57 

00348 

014030 

GO  TO  PAR- A. 

CM000057 

00743 

0  1  40  4  0 

C3X1. 

CMDDD057 

00300 

0 1 4°  b  0 

GO  TO  END-JOB. 

CH000057 

00351 

014070 

KBX. 

CMDDD057 

00352 

014080- 

READ  C-FILE  AT  END  GO  TO  KBX1. 

CMDDD057 

C0353 

C1409C 

WRITE  NU-FIL  FROM  C-FIL. 

00354 

C14130 

GO  TO  xax. 

CMDDD057 

00355 

Cl  41 1 0 

KBX1. 

CHD0D057 

00356 

014120 

IF  KB XS  =  1  GO  TO  CBX2. 

CM000057 

00357 

0l**l30 

Gtl  TO  CBX1. 

CM000057 

00355 

014140 

PAR-A. 

CHD0D057 

00359 

C14150 

OPEN  1-0  C-FILE.  OPEN  DUTPUT  NU-FILE. 

CH000057 

C0360 

014160 

PAR-C. 

CM000057 

30351 

C1417C 

READ  KAROS  AT  END  GO  TO  END-JOB. 

CHDDD057 

0036? 

014180 

PAXY. 

IF  C-PARN  =  'ZERO  CALS'  GO  TO  El. 

CH000057 

00363 

C 1 4190 

IF  RC-P1  =  'DELETE'  GO  TD  E2 . 

CMD00057 

00364 

0 l 4200 

IF  C-PARM  =  'UNASSIGN  •  GO  TD  E3. 

00365 

014210 

PAR-0. 

00366 

014211 

IF  SW2  «  1  MOVE  D  TD  SW2  GO  TO  PAR-Dl. 

00367 

014212 

READ  C-FILE  AT  END  OISPLAY  'D14212'  GD  TO  END-JOBl. 

00368 

014213 

PAR-Dl 

• 

00369 

IF 

C-INO  >  CF-INO  GO  TD  SHEWL. 

00370 

IF 

C-INOCD  >  CF-1N0CD  GO  TO  SHEWL. 

30371 

IF 

C-INO  <  CF-INO  GO  TO  BADAS. 

00372 

* 

IF 

C-INOCO  <  CF-INOCD  GO  TO  BADAS. 

30373 

0 1  42  3  C 

IF  C-RN  NOT  *  CF-RN  GO  TO  SHEWL. 

CHD0D057 

30374 

014240 

IF  C-INOCD  NOT  =  SPACE  HDVE  C-INOCD  TO  CF-INDCD 

CM000057 

30375 

014253 

MOVE  I  TO  CSW. 

CH000057 

00376 

Cl  50  1C 

IF  C-UOC  -NOT  =  SPACE  HOVE  l  TO  CSW 

CM0DDD57 

0037? 

015020 

MOVE  C-UDC  TO  CF-UDC. 

CH000057 

0037  8 

015030 

IF  C-RN  NOT  =  SPACE  MOVE  1  TO  CSW 

CH000057 

00379 

Dl 5040 

MOVE  C-RN  TO  CF-RN. 

CM000D57 

00330 

015050 

IF  C-PDS  NOT  =  SPACE  MOVE  1  TO  CSW 

CH000057 

00381 

015060 

MOVE  C-POS  TO  CF-PDS •  ’ 

CMD00057 

00332 

015070 

IF  C-NEG  NOT  =  SPACE  HDVE  1  TO  CSW 

CMDDD057 

00333 

015080 

MOVE  C-NEG  TD  CF-NEG. 

CM000057 

00384 

015090 

IF  C-RCAL  NOT  =  SPACE  MOVE  l  TO  CSW 

CM000057 

00385 

015100 

HDVE  C-RCAL  TD  CF-RCAL. 

CHDD0057 

00386 

015110 

IF  C-TC  NOT  =  SPACE  HOVE  I  TD  CSW 

CH000057 

00387 

01  5120 

MOVE  C-TC  TD  CF-TC. 

CM0DD057 

00333 

016130 

IF  CSW  =  D  MOVE  SPACE  TO  CF-PARH  CF-TC 

CM0D0057 

00339 

015140 

MOVE  D  TO  CSW. 

OG390 

015141 

MOVE  C-PARM  TO  CF-PARM. 

0039 1 

01515C 

PAR-DD 

• 

CM00D057 

00392 

01516C 

WRITE  NU-FIL  FROM  C-FIL. 

CHD00057 

00393 

00394 

015170 

3A0AS. 

GO  TO  PAR-C. 

CMDDDD57 

0C395 

DISPLAY  *  BAD  INPUT  CARD  •  C-CO. 

00396 

MOVF  1  TO  SW2. 

99 


AEDC-TR-71-109 


8 


30397 

00399 

30399 

00400 

00401 

00402 

00403 

004C4 

00405 

00406 

00407 

G34C8 

30439 

00410 

30411 

30412 
00413 
00414 
0C  4  1  6 
0C416 
00417 
004 1  8 
3C419 
00420 
30421 
00422 
00423 
30424 
00425 
00426 
00427 
00429 
00429 
00430 

30431 

30432 

30433 

30434 
00435 
00436 
00437 
03434 
00439 
00440 
00441 
00442 
00443 

33444 

34445 

07446 

30447 

00444 

30449 

00454 

03451 

0745? 

00444 


015180 
01519G 
015200 
0152G1 
015210 
015211 
015212 
015213 
015214 
015215 
015220 
015230 
015231 
015240 
015253 
C 1 60 1  C 
016323 
016C3C 
316340 
,015341 
016342 
016C43 
016044 


GO  TO  PAR-C.  _ _ _  _ 

SHEWL. 

WRITE  NU-FIL  FROM  C-FILj.  GO  TO  PAR-0. _ 

El. 

IF  SM2  =  1  MOVE  0  TO  SW2  GO  TO  FIB.  _ 

REAO  C-FILE  AT  END  01  SPLAY  '015210'  GO  TO  EV0-J0~B1. 

El  8 . 

IF  C-INO  =  CF-INO 

IF  C-INOCO  =  CF-INOCO  _ 

IF  C-RN  =  SPACE 

GO  TO  ZRO-ALL.  _ 

IF  C-INO  »  CF-INO 

IF  CF-INOCO  »  C-INOCO  _ _ _ _ 

IF  CF-RN  *  C-RN 

MOVE  SPACE  TO  CF-UDC  CF-PARH  CF-POS  CF-NEG_ 

CF-RCAL  CF-TC 

WRITE  NU-FIL  FROM  C-FIL  _ _ _ _ 

GO  TO  PAR-C. 

WRITE  NU-FIL  FROM  C-FIL.  _ 

GO  TO  El. 

ZRO-ALL.  _ 

MOVE  SPACE  TO  CF-UDC  CF-PARH  CF-POS  CF-NEG  CF'-RCAL  CF-TC. 

WRITE  NU-FIL  FROM  C-FIL.  _ 

GO  TO  El. 


CH000057_ 

CHOO0057 


CM000057 

"CMOOOb57 

CMOOOQ5T 

CM000057 

CM000057 

CM000057 


01 6053  E2. 
016360 
016051 
0160RC  E2R. 
316790 
016100 
016110 
016120 
016150  E2A . 
0161 51 
016160 

316161  E2AI. 
016170 
716171 
C15172 
016180 
016193 
716200 
016210 
016220 
C1623C 
017730  E 3 . 
317031 
317040 

.  0 1 7041  E3A. 


_  CM000057 

IF  RC-P2  =  SPACE  IF  SW2  =  1  HOVE  0  TO  SW2 

GO  TO  E2A1  FLSE  GO  TO  E2A.  _  _  _ 

CM000057 

ADO  1  TO  SUB.  _  CHO00O57 

MOVE  RC-P2  TO  HRC-PC  (SUB)  CH000057 

IF  SUR  >  1C  01  SPLAY  'AREA  EXCEEOEO'  GO  TO  ENO-JOB.  CM000057 

GO  TO  PAR-C.  CH000057 

CM000057 

IF  SW2  =  I  MOVE  0  TO  SM2  GQ  TO  E2A1. 

Rf  AO  C-FILE  AT  ENO  OISPLAY  '016160'  GO  TO  ENO-JOBI. 


IF  C-INO  =  CF-INO 
IF  CF-INOCO  =  C-INOCO 
MUVF  'XXX*  TO  CF-NO 
P.nvF  1  TO  5W 
WRITE  NU-FIL  FROM  C-FIL 
GO  TO  E2A. 

IF  SW  =  1  MOVE  0  TO  SW  MOVE  1  TO  SM2  GO  TO  PAR-C. 
WRITE  NU-FIL  FROM  C-FIL. 

GO  TO  E2A. 

IF  SW2  =  I  MOVE  0  TO  SW2  GO  TO  ESA. 

REAO  C-FILE  AT  ENO  OISPLAY  'OI7040'  GO  TO  ENO-JOBI. 


CMOOO057 

CM000057 

CM0OO057 

CM000C57 

CM000057 


717457  IF  C-INO  NOT  =  CF-INO  WRITE  NU-FIL  FROM  C-FIL  GO  TO  E3.  CM000057 

**417053  IF  CF-IN3C0  NTT  =  C-INflCD  WRITE  NU-FIL  FROM  C-FIL 


317752 

GO  TO  E3. 

31  ■'364 

MOVF  SPACE  TO  CC-TC  CF-PARM. 

CM000057 

31  73  77 

WRITE  NJ-FIL  FROy  C-FIL. 

CM000057 

31  74;1C 

GO  TO  PAR-C. 

CM003057 

Cl  77 -sc 

FN3-JDR . 

71  7492 

IF  SV>2  =  1  GO  TO  c J31 . 
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00454 

0C455 

0045ft 

00457 

0045  a 

00459 

0C460 

0C46I 

00462 

0C463 

00464 

00465 

00466 

0C467 

0046  3 

00469 

0C47n< 

00471 

00472 

00473 

C0474 

00476 

CD476 

00477 

0047B 

00479 

00430 

00481 

00482 

004B3 

00484 

004  95 

00486 

00487 

30488 

00489 

00490 

00491 

00492 

00493 

00494 

00496 

00496 

00497 

O0498_ 

00499 

0050C 

00501 

0C532 

00503 

00504 

00505 

005C6 

00507 

00508 

0C509 

00510 


017093 
017094 
017095 
017096 
0  I  7097 
01709  9 
01  7099 
Cl  7100 
017113' 
C17I20 
0171?  [ 

317122 

017133 


EJBO. 


EJB1. 


EJB2. 


READ  C-FILE  AT  ENO  GO  TO  EJ82. 

HR [ TE  NU-FIL  FROM  C-FIL. 

GO  Tn  FJHO. 

CLOSE  NU-F  ILE. 

OPEN  1-0  NU-FILE. 

OPEN  OUTPUT  OUTFILE 
OPEN  OUTPUT  LISTING. 

WRITE  LIST  FROM  F-PAGE  AFTER  0. 
WRITE  LIST  FROM  F-PAGEB  AFTER  2. 

GO  T'J  CK-JCT. 


CM000057 

CM000057 

CM000057 

CM000057 


EJRO. 


READ  N'J-FILE  INTO  C-FIL  AT  ENO 


017140 

IF  CF-N3  =  'XXX'  GO  TO  EJRD. 

317153 

MOVE  CF-TC  TO  LTC. 

317160 

MOVE  CF-TYPCO  TO  LTYPC1. 

C17170 

MOVE  CF-RNG  TO  LRNG. 

OI718C 

MOVE  CF-RNGU  TO  LRNGU. 

017190 

MOVE  CF-.RNGtfO  TO  LRNGCO. 

017230 

MOVE  CF-PARM  TO  LPARM 

Cl  72 1 0 

MOVE  CF-.MFG  TO  LMFG. 

017223 

MOVF  CF-INO  TO  LINO. 

017230 

MOVE  CF-1N0C0  TOLINOCD. 

317240 

MOVE  CF-UDC  TO  LUDC. 

017250 

MOVE  CF-RN  TO  LRN. 

019310 

MOVE  CF-POS  TO  LPOS. 

C 18020 

MOVE  CF-NEG  TO  lneg. 

018030 

MOVE  CF-FQU  TO  LEQU. 

01HG40' 

•MOVE  CF-RCAL  TO  LRCAL . 

018050 

WRITE  LIST  FROM  OATALN  AFTER 

C18051 

MOVE  '  1  TO  OSKP 

01P06C 

WRITE  OUTFIL  FROM  C-FIL. 

C-18061  ADO 

1  TO  EJCT. 

01  8070 

GO  TO  CK-JCT. 

018080  CK-TC. 
018090 

MOVE  1  TO  SUBI. 

GO  TO  ALLJ. 

PERFORM  CK-TC  THRU  CX. 


CM000057 

CM000057 

CM000057 

CM000057 

CM000057- 

'CMOOOOSY 

CM000057 

CM000057 

CM000057 

CM000057 

CM000057 

CM000057 

CM000057 

CM000057 

CM000057 

CMOOOOST 


C18130  CKt. 
01811C 
018120 
01 8130 
C1814C 
019150  CX. 
018160  ALLJ. 
01  317C 
019180 

018190  CK-JCT 
018200 
019210 
018211 
018220 
018230 

019310  PAR-ZZ 
019920' 

019030 
019040 
019350 


IF  SUBI  >  SUB  GO  TO  CX. 

IF  CF-TC  =  HRC-OC  ISUBU 
ROVE  SPACE  TO  CFtTC  CF-PARM. 
ADD  1  TO  SUBI.  GO  TO  CK1. 
EXIT. 


CLOSF  C-FILE  KAROS  NU-FJ LE_OUTF I LE  LISTING. 
STOP  RUN. 


IF  EJCT  >  52  MOVE  0  TO  EJCT 
WRITE  LIST  FROM  HFAOER  AFTER  SKP 
MOVE  "O'  TO  DSKP 
MOVE  'l1  TO  SKP. 

GO  TO  EJRD. 


01  SPLAY  *  NO  DATA  CARDS  FOR  HEAD-N* 
CLOSE  KARDS. 

STOP  RUN. 

END- JDR 1 ■ 


CM000057 

CM000057 

CM000057^ 

CM000057 

CM000057 

CM00005T 

CM000C5T 

CM000C57 

CM000057 

CMOO"6'657~ 

CM000057 

CM000057 

CM000057 

CMQ00057 

CM00005T 


CM000057 

CM00005T 


CM000057 

CM000057 


CMOOOOST 
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00001 

00002 

00101 

00102 

IDENTIFICATION  OIVISION. 

PROGRAM-IO.  •  CN000019*  • 

CM000019 

CM000019 

CM000019 

CM000019 

CM000019 

00003 

00004 

00104 

00105 

ENVIRONMENT  DIVISION. 

CONFIGURATION  SECTION. 

00005  00106 

00006  107 

SOURCE-COMPUTER.  IBM-360  H50. 

OBJECT-COMPUTER.  IBM-360  H50. 

00007 

00108 

INPUT-OUTPUT  SECTION. 

CH000019 

00008 

00109 

FILE-CONTROL. 

CH000019 

00009  **  110 

SELECT  A-FILE  ASSIGN  • AF I LEREC '  UTILITY. 

00010 

111 

SELECT  B-FILE  ASSIGN  'BFILEREC*  UTILITY. 

00011 

112 

SELECT  C-FILE  ASSIGN  'CFILEREC •  UTILITY. 

00012 

113 

SELECT  I-FILE  ASSIGN  • IF ILEREC •  UTILITY. 

00013 

114 

SELECT  PRT-A  ASSIGN  * APRTOUT •  UTILITY. 

00014 

115 

SELECT  PRT-B  ASSIGN  ‘BPRTQUT*  UTILITY. 

00015 

116 

SELECT  O-CARO  ASSIGN  'CPRTOUT1  UTILITY. 

.00016 

117 

SELECT  NPATCHI  ASSIGN  <PATIN*  UTILITY. 

00017 

118 

SELECT  NHOOKI  ASSIGN  '  HOKIN  1  UTILITY. 

00018 

SELECT  B-UPTAPE  ASSIGN  *BTAPE*  UTILITY. 

00019 

SELECT  C-UPTAPE  ASSIGN  * CT APE •  UTILITY. 

00020 

00201 

OATA  OIVISION. 

CM00001 9 

00021 

00202 

FILE  SECTION. 

CM000019 

00022 

00203 

FO 

A-FILE 

RECORD  CONTAINS  80  CHARACTERS 

CM000019 

00023 

00204 

LABEL  RECORDS  ARE  STANDARD 

CM000019 

00024 

00205 

RECOROING  MODE  IS  F 

CM000019 

00025  **  206 

'  . 

BLOCK  CONTAINS  45  RECOROS 

00026 

00207 

OATA  RECORO  IS  A-CARO. 

CM000019 

00027 

00208 

01 

A-CARO. 

CM000019 

00028  **  209 

02  FILLER 

PICTURE  XI 41 . 

00029 

210 

02  A  IB 

-IN 

PICTURE  S9. 

CM000019 

00030 

211 

02  FILLER 

PICTURE  XI 75) • 

00701 

FO 

B-FILE 

RECORO  CONTAINS  80  CHARACTERS 

CM000019 

00032 

00702 

LABEL  RECOROS  ARE  STANOARO 

CM000019 

00033 

00T03 

RECOROING  MODE  IS  F 

CH000019 

00034  **  704 

BLOCK  CONTAINS  45  RECORDS 

30035 

00705 

DATA  RECORO  IS  B-CARD. 

CM000019 

00036 

00706 

01 

8— CARO. 

CN000019 

00037  •*  707 

02 

B1 

PICTURE  XI4). 

CM000019 

00038 

0070B 

02 

62  PICTURE  9. 

CM000019 

00039 

00709 

02 

B3.  * 

CM000019 

00040 

00710 

03 

B3A  PICTURE  X. 

CH000019 

00041 

00711 

03 

B3B  PICTURE  X ( 3 1 . 

CM000019 

00712 

03 

BBC  PICTURE  X. 

CM000019 

00043 

00713 

02 

B3R  REDEFINES  B3. 

i  ini n  ■ 

00044 

00714 

03 

B3RA  PICTURE  XX. 

CH000019 

00045 

00715 

03 

B3RB  PICTURE  XX. 

CH00001 9 

00046 

00716 

03 

B3RC  PICTURE  X. 

CM000019 

00047  **  7161 

02  83RR 

REDEFINES  B3R. 

CM000019 

00048 

7162 

03 

B3RRA  PICTURE  XXXX. 

CN000019 

00049 

7163 

03 

B3RRB  PICTURE  X. 

CN000019 

00050 

7164 

02  RRR 

-R 

REDEFINES  B3. 

00051 

7165 

03 

N- 

fll  PICTURE  X. 

00052 

7166 

03 

N- 

B2  PICTURE  X. 

00053 

7167 

03 

N- 

B3  PICTURE  X. 

00054 

7168 

03 

N- 

B4  PICTURE  X. 
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00055 

7169 

03 

N- 

B5  PICTURE  X. 

00055 

00717 

02 

B4 

PICTURE  X 1 24 1 . 

CHOOOOI9 

00057 

0071B 

02 

B5. 

CM 0000 19 

0005R 

00719 

03 

B5A 

PICTURE  XX. 

CM000019 

00059 

00720 

03 

B5B 

PICTURE  XX. 

CM000019 

oocso 

**  7201 

02 

B5R 

REDEFINES  B5. 

00061 

7202 

03 

B5AR 

PICTURE  X. 

00062 

7203 

03 

B5BR 

PICTURE  XI3I 

1 . 

00063 

72  04 

02 

B5RR  REOEFINES  B5R. 

00064 

7205 

03 

B5ARR  PICTURE 

XX. 

00065 

7206 

03 

85BRR  PICTURE 

X. 

00066 

72  07 

03 

B5CRR  PICTURE 

X. 

00067 

00721 

02 

B6. 

CM000019 

0006  B 

00723 

03 

B68 

PICTURE  XI 31. 

CM000019 

00069 

*♦00722 

03 

B6A 

PICTURE  X 1 6 ) • 

CM000019 

00070 

00801 

02 

87. 

CM000019 

00071 

00802 

03 

B7  A 

PICTURE  XX. 

CM 0000 19 

00072 

00B03 

03 

B7A1 

PICTURE  X. 

CM000019 

00073 

00804 

03 

878 

PICTURE  X I  3 ) . 

CHOOOOl 9 

00074 

00805 

03 

87C 

PICTURE  X. 

CH000019 

00075 

00806 

02 

B7R 

REOEFINES  B7. 

CHOOOOl 9 

00076 

00807 

03 

B7RA 

PICTURE  XI 3 1 • 

CH000019 

00077 

00808 

03 

87RB 

PICTURE  X. 

CHOOOOl 9 

00078 

00B09 

03 

BTRC 

PICTURE  XI3I. 

CH000019 

00079 

OCBIO 

02 

B8. 

CH000019 

00080 

00812 

03 

BBB 

PICTURE  XI 3 1 . 

CH000019 

00081 

**00811 

• 

03 

B8A 

PICTURE  X 1 6 1 « 

CH000019 

00082 

00B13 

02 

B9. 

CH000019 

00083 

00815 

03 

B9B 

PICTURE  X 1 3 1  . 

CHOOOOl 9 

00084 

**00B14 

03 

B9A 

PICTURE  X 1 4 1 . 

CM000019 

00085 

00816 

02 

BIO 

PICTURE  XI9). 

CH000019 

00036 

00817 

02 

Bll 

PICTURE  X. 

CHOOOOl 9 

00087 

00901 

FD 

c-fue 

RECORO  CONTAINS  BO  CHARACTERS 

CH000019 

3O03B 

00902 

LABEL  RECORDS  ARE  STANDARD 

CHOCOO 19 

00089 

00903 

RECORDING  NODE  IS  F 

CH000019 

00090 

**  904 

BLOCK  CONTAINS  45  RECORDS 

00091 

00905 

DATA  RECORD  IS  C-CARD. 

CH000019 

00092 

009C6 

01 

C-CARO. 

CM000019 

00093 

02 

Cl 

PICTURE  X. 

00094 

02 

Cl  AAA 

PICTURE  XXX. 

00095 

00908 

02 

C2 

PICTURE  9. 

CH000019 

00096 

**  909 

02 

C3 

PICTURE  XI7I. 

CH000019 

0009  7 

00910 

02 

C4  • 

CH000019 

0009  8 

00911 

03 

C4A 

PICTURE  XI  71 . 

CM000019 

00099 

C0917 

03 

C4B 

PICTURE  X I 3 1 . 

CH000019 

00100 

C0913 

03 

C4C 

PICTURE  X. 

CH0000I9 

00101 

00914 

02 

C  5 

PICTURE  XI9I . 

CH000019 

00102 

**  915 

02 

C6 

PICTURE  X 1 9 1 

'  a 

00103 

00916 

02 

C  7 . 

CM000019 

00104 

**  917 

03 

C7A  PICTURE  X 1 6 1  » 

00  1C  8 

0C9LB 

03 

C7B 

PIC  TURF  X. 

CH000019 

00106 

00919 

02 

CB 

PICTURE  XI4I » 

CH000019 

00107 

*•  920 

02 

C9 

PICTURE  X. 

OCIOH 

0092 1 

02 

CIO. 

CHOOOOl 9 

00109 

00922 

03 

C10A 

PICTURE  X 19 1 » 

00110 

00924 

C  2 

CU. 

CM000019 

00111 

OC  925 

.  .  . 

03 

C  1 1 A 

PICTURE  XJ9I. 

CHOOOOl 9 
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00112 

00113 

0C114 

010'11 
**  1002 

10021 

02 

03 

C  1 2 
03 

CUB  PICTURE  XI  3  ) • 

"ci 26  PICTURE  XX. 

CHOP 0019 

cons 

10022 

03 

C12B  PICTURE  XX. 

CC116 

10023 

03 

C12C  PICTURE  XX. 

30IU 

01101  FD 

I-FILF 

RECORD  CONTAINS  80  CHARACTERS 

CK000019 

00 1  L  8 

01102 

LABEL  RECORDS  ARE  STANDARD 

CH000019 

Op  119 

01103 

RECORDING  MODE  IS  F 

CH000019 

CC120 

01104 

BLOCK  CONTAINS  10  RECORDS 

OC12L 

**  1105 

DATA  RECORDS  ARE  I-CARD  OPT-CARD. 

OC  12? 

11051  Cl 

OPT 

-CARD. 

0C123 

11052 

02 

OPT 

-CALDATE  PICTURE  9161. 

OC  124 

C2 

DPT- 

LISTC  PICTURE  X. 

00125 

02 

FILLER  PICTURE  XI721. 

00126 

**  11C54 

C  2 

CK.- 

OPTT  PICTJRE  X. 

OC  127 

1 1054 

89 

CKPTT  VALUF  'O'. 

00128 

01106  01 

l-CARD. 

CM000019 

0C129 

01 107 

02 

11  PICTURE  X  1 9 1 . 

CH00001 9 

0013C 

01  108 

02 

12  PICTURE  9. 

CM000019 

00131 

01109 

02 

13 

PICTURE  X 1 1 81 • 

00132 

**  1110 

02 

14. 

00133 

11101 

03 

I4A  PICTURE  XX. 

0C134 

11102 

03 

I4B  PICTURE  X. 

00135 

**  11102 

03 

I4C  PICTURE  X. 

00136 

1 1103 

02 

I4R  REDEFINES  14. 

00137 

11104 

03 

I4AR  PICTURE  X. 

00133 

11105 

33 

I 4BR  PICTURE  XX. 

00139 

11106 

33 

I4CR  PICTURE  X. 

00140 

mi 

02 

15  PICTURE  Xf 9) . 

CH000019 

00141 

01112 

02 

16. 

CH000019 

00142 

C1113 

03 

I6A  PICTURE  X. 

CM000019 

00143 

**  1114 

03 

I6B  ■  PICTURE  XI 6 1  • 

00144 

01115 

33 

I6C  PICTURE  X. 

CH000019 

00145 

01116 

33 

160  PICTURE  XI 31 . 

CH000019 

00146 

01117 

33 

1 6E  PICTURE  X. 

CH000019 

00147 

01118 

02 

I6R  REDEFINES  16. 

CH000019 

00148 

01119 

03 

I6RA  PICTURE  X. 

CM000019 

00149 

01120 

03 

I6RB  PICTURE  XI7). 

CH000019 

00150 

C 1 12  1 

03 

1 6RC  PICTURE  X( 3 > • 

CM00001 9 

00151 

C 1 122 

03 

I 6R0  PICTURE  X. 

CN000019 

00152 

01123 

02 

17. 

CH000019 

00153 

**  1124 

03 

I7A  PICTURE  X. 

CH000019 

00154 

1125 

03 

I7B  PICTURE  X. 

CH000019 

00155 

1126 

03 

I7C  PICTURE  X. 

CH000019 

00156 

1127 

03 

170  PICTURE  X. 

CH000019 

C0157 

1128 

03 

I7E  PICTURE  X. 

CH000019 

00159 

1129 

02 

I7R  REDEFINES  IT. 

CH000C19 

03159 

1130 

C3 

I7AR  PICTURE  XX. 

CH000019 

00160 

1131 

03 

I7BR  PICTURE  XX. 

CM000019 

00161 

1132 

03 

I7CR  PICTURE  X. 

CH000019 

00162 

1133 

02 

I 7RR  REDEFINES  I7R. 

CH000019 

00163 

1134 

03 

I7ARR  PICTURE  X. 

CH000019 

00164 

1135 

03 

I7BRR  PICTURE  XXX. 

CM000019 

00165 

1136 

03 

I7CRR  PICTURE  X. 

CH000019 

00166 

01206 

02 

18. 

CM000019 

00157 

**  1207 

03 

I8A  PICTURE  X. 

CN000019 

00168 

1208 

03 

I 85  PICTURF  X. 

CHOOP919 
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00169 

1209 

03 

03 

03 

I8C 

ISO 

1  BE 

PICTURE  X.' 

CH000019 

CM000019 

CM000019 

oouo 

00171 

1210 

1213 

PICTURE  X. 

PICTURE  X. 

00172 

1214 

02 

IBR 

-  REDEFINES  18. 

CH000019 

00173 

1215 

03 

I8AR 

PICTURE  XX. 

CH000019 

00174 

1216 

03 

IBBR 

PICTURE  XX. 

CM 000019 

00175 

1217 

03 

1  BCR 

PICTURE  X. 

CM000019 

00176 

1218 

02 

I8RR 

REDEFINES  I8R. 

CM000019 

00177 

1219 

03 

I  BARR 

PICTURF  X. 

CM000019 

00178 

1220 

03 

IBBRR 

PICTURE  XXX. 

0*000019 

00179 

1221 

03 

I8CRR 

PICTURE  X. 

CM000019 

0018-0 

1222 

02 

19. 

CM0C0019 

00181 

1223 

03 

I9A 

PICTURE  X. 

CM000019 

00182 

1224 

03 

198 

PICTURE  X. 

CM000019 

00183 

iHnii 

03 

I9C 

PICTURE  X. 

CHOOOOI9 

00184 

1226 

03 

190 

PICTURE  X. 

CN000019 

00185 

1227 

03 

I9E 

PICTURE  X. 

CH000019 

00186 

1228 

02 

I9R 

REDEFINES  19. 

0*000019 

00187 

1229 

03 

19  AR 

PICTURE  XX. 

CNOOOO l 9 

00188 

1230 

03 

I9BR 

PICTURE  XX. 

CH000019 

00189 

1231 

03 

I9CR 

PICTURE  X. 

CM000019 

00190 

1232 

02 

I9RR 

REDEFINES  I9R. 

CN000019  i 

00191 

1233 

03 

I9ARR 

PICTURE  X. 

CM000019 

00192 

1234 

03 

I98RR 

PICTURE  XXX. 

CM000019 

00193 

1235 

03 

I9CRR 

PICTURE  X. 

CH000019 

00194 

1236 

02 

110. 

CH000019 

00195 

1237 

03 

1 10  A 

PICTURE  X. 

CM000019 

00196 

1238 

03 

HOB 

PICTURE  X. 

CM000019 

00197 

1239 

03 

HOC 

PICTURE  X. 

CH000019 

00198 

1240 

03 

1100 

PICTURE  X. 

CH000019 

00199 

1241 

03 

HOE 

PICTURE  X. 

CH000019 

00200 

1242 

02 

I10R 

REDEFINES  110. 

CH000D19 

0  0  201 

1243 

03 

HOAR 

PICTURE  XX. 

CM000019 

00202 

03 

I10BR 

PICTURE  XX. 

CH000019 

00203 

1245 

03 

1 10CR 

PICTURE  X. 

CM000019 

00204 

1246 

02 

I10RR 

REOEFINES  I10R. 

CNOOOO 19 

0020  5 

1247 

03 

I10ARR 

PICTURE  X. 

CH000019 

00206 

1248 

03 

I10BRR 

PICTURE  XXX. 

CM000019 

00207 

1249 

03 

I10CRR 

PICTURE  X. 

CM000019 

0020  8 

1250 

02 

III 

PICTURE  XX. 

CM000019 

00209 

1251 

02 

112 

PICTURE  X (41. 

CNOOOO  19 

00210 

1252 

02 

113 

PICTURE  X. 

CM000019 

00211 

01301 

FD 

PRT 

-A 

'  * 

RECORD  CONTAINS  133  CHARACTERS 

CN000019 

00212 

01302 

LABEL  RECORDS  ARE  STANDARD 

CM000019 

00213 

01303 

RECORDING  NODE  IS  F 

CM000019 

00214 

01304 

BLOCK  CONTAINS  1  RECORDS 

00215 

01305 

" 

DATA  RECORD  IS  PAT-PRT . 

CN030019 

00216 

01306 

01 

PAT 

-PRT 

• 

• 

CN0000I9 

00217 

01307 

02 

FILLER 

PICTURE  X 1 133 1 . 

CNOOOO 19 

00218 

01308 

FO 

PRT 

-8 

RECORD  CONTAINS  133  CHARACTERS 

CH000019 

00219 

01309 

LABEL  RECORDS  ARE  STANDARD 

CH0000I9 

00220 

01310 

RECORDING  NODE  IS  F 

C.N000019 

00221 

01311 

BLOCK  CONTAINS  1  RECORDS 

00222 

01312 

DATA  RECORD  IS  HK-PRT. 

CN000019 

00223 

01313 

01 

HR- 

PRT. 

CN030019 

00224 

01314 

02 

FILLER 

PICTURE  XI133). 

CM000019 

00225 

**  1315. 

FO.. 

O-CARD.. 

_ _ _ 

RECORD  CONTAINS  133  CHARACTERS 
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00226 

01316 

LABEL  RECOROS  ARE  STANDARO 

CH000019 

CM000019 

90227 

00228 

01317 

01318' 

RECOROING  MOOE  IS  F 

BLOCK  CONTAINS  12  RECOROS 

00229 

01319 

OATA  RECORD  IS  PRT-REC. 

00230  **  1320 

01 

PRT-REC 

PICTURE  X (  133) . 

00231  **  46 

FD 

NPATCHI  RECOROING  F  RECORO  133  BLOCK  1  RECORDS 

00232 

47 

LABEL  RECOROS  STANOARO  OATA  RECORO  NPATI. 

00233 

48 

01 

NPATI  PICTURE  XI133I. 

00234 

49 

F0 

NHOOKI  RECOROING  F  SLOCK  l  RECOROS  RECORO  133 

00235 

50 

LABEL  RECOROS  STANOARO  OATA  RECORO  NOOKI. 

00236 

51 

01 

NOOKI  PICTURE  XI133I. 

00237 

FO 

B-UPTAPE 

RECOROING  F  BLOCK  1  RECOROS  RECORO  80 

0023B 

LABEL  RECOROS  STANOARO  OATA  RECORO  B-UPTAPER. 

" 

00239 

01 

B-UPTAPER 

PICTURE  XIBOI. 

00240 

FO 

C-UPTAPE 

RECORDING -F  BLOCK  1  RECOROS  RECORO  80 

00241 

LABEL  RECOROS  STANOARO  OATA  RECORO  C-UPTAPER. 

00242 

01 

C-UPTAPER 

PICTURE  XIBOI. 

00243 

01401 

WORKING- 

-STORAGE 

SECTION. 

CH000019 

00244 

01402 

77 

P-CNT 

PICTURE  S9  COMPUTAT10NAL-3  VALUE  ZERO. 

CH000019 

00245 

014030 

77 

C-SUB  PICTURE  S9999  COHPUTAT IONAL-3  VALUE  0. 

00246  14031 

77 

OC-SUB 

PICTURE  S999  CDHPUTATIONAL-3  VALUE  ZERO. 

CH000019 

00247 

14032 

77 

OB- SUB 

PICTURE  9999  C0MPUTATIONAL-3  VALUE  ZERO. 

00248 

1404 

77 

B-SU8  PICTURE  S9999  COHPUTAT IONAL-3  VALUE  0. 

00249 

01405 

77 

CSW-1 

PICTURE  S9  COHPUTAT IONAL-3  VALUE  ZERO. 

CH 000019 

00250 

01406 

77 

CSW-2 

PICTURE  S9  COHPUTAT IONAL-3  VALUE  ZERO. 

CH000019 

00251 

01407 

77 

C-SW 

PICTURE  X  VALUE  SPACE. 

CH000019 

00252 

01408 

77 

FLIP-SW 

PICTURE  S99  COHPUT ATI ONAL-3  VALUE  ZERO. 

CH000019 

00253  »•  1409 

77 

S-ST1 

PICTURE  S9  COHPUTAT I ONAL-3  VALUE  ZERO. 

00254 

1410 

77 

S-ST2 

PICTURE  XXX  VALUE  SPACE. 

00255 

1411 

77 

S-ST3 

PICTURE  XXX  VALUE  SPACE. 

00256 

1412 

77 

STA-SW 

PICTURE  S9  COHPUTATIONAL-3  VALUE  ZERO. 

00257 

1413 

77 

ST-1 

PICTURE  XX  VALUE  SPACE. 

00258 

1414 

77 

ST-2 

PICTURE  KI4I  VALUE  SPACE. 

00259  *•  1414 

77 

ST-3 

PICTURE  XX  VALUE  SPACE. 

00260 

1416 

77 

ST-4 

PICTURE  XXX  VALUE  SPACE. 

00261 

1417 

77 

ST-5 

PICTURE  X  VALUE  SPACE. 

00262 

1418 

77 

ST— 6 

PICTURE  X  VALUE  SPACE. 

00263 

1419 

77 

ST-7 

PICTURE  X ( 5 1  VALUE  SPACE. 

00264 

1420 

77 

APT-SUB 

PICTURE  S99  COHPUTATIONAL-3  VALUE  ZERO. 

00265 

1421 

77 

SCA-SW 

PICTURE  S9  COHPUTATIONAL-3  VALUE  ZERO. 

00266 

01422 

77 

PB-SW2 

PICTURE  S9  COHPUTATIONAL-3  VALUE  ZERO. 

CH000019 

00267 

01423 

77 

8— ST 

PICTURE  XXX  VALUE  SPACE. 

CH000019 

00268 

01424 

77 

0-SW1 

PICTURE  S9  COMPUTATIONAL-}  VALUE  ZERO. 

CH000019 

00269 

01425 

77 

0-SW2 

PICTURE  S9  COHPUTATIONAL-3  VALUE  ZERO. 

CH000019 

00270 

01501 

77 

0-SW4 

PICTURE  S9  COHPUTATIONAL-3  VALUE  ZERO. 

CH000019 

00271 

01502 

77 

R-ST 

PICTURE  XXX  VALUE  SPACE. 

CH000019 

00272 

77 

IFCLIST  PICTURE  X. 

00273 

01503 

77 

PL-CK 

PICTURE  S9  COHPUTATIONAL-3  VALUE  ZERO. 

-CH000019 

00274 

01513 

77 

THRU-SW 

PICTURE  S9  COHPUTATIONAL-3  VALUE  ZERO. 

CH000019 

00275 

01516 

77 

LN-CTR 

PICTURE  S99  COHPUTATIONAL-3  VALUE  ZERO. 

CM000019 

00276 

01519 

77 

CPRT1 

PICTURE  S9  CDHPUTATIONAL-3  VALUE  ZERO. 

CH000019 

00277 

01524 

77 

HX-SUB 

PICTURE  S9  COHPUTATIONAL-3  VALUE  ZERO. 

CH000019 

00273  *•  1526 

77 

AL-SUB 

PICTURE  S9  COHPUTATIONAL-3  VALUE  ZERO. 

00279 

1527 

77 

BSV-l 

PICTURE  S9  CDHPUTATIONAL-3  VALUE  ZERO. 

CH000019 

00  280 

1523 

77 

BSW-2 

PICTURE  S9  COHPUTATIONAL-3  VALUE  ZERO. 

CH000019 

00281  **  1528 

77 

PAT-SUB 

PICTURE  S99  COHPUTATIONAL-3  VALUE  ZERO. 

r  CH000019 

00282 

1531 

77 

N-SUB 

PICTURE  S99  COHPUTATIONAL-3  VALUE  ZERO. 

CH000019 
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00281  1  53A  77  SQ-SUB  PICTURE  S9  COMPUTAT IONAL-3  VALUE  ZERO.  CM000019 

0028 A  1536  77  0-SW3  PICTURE  S9  COMPUTAT IONAL-3  VALUE  ZERO. 

00285  **  1536 _ 77  SQUID-COUNT  PICTURE  S9  COH PUTAT I ONAL-3  VALUE  ZERO. _ 


90298  77  TSTCELL  PICTURE  X. 

30299  22  77  C-CT  PICTURE  99  COMPUTATI UNAL-3  VALUE  0.  CM000020 

00300  77  CF-SH  PICTURE  9  VALUE  0. 


00301 

01 

CNG 

-PZ7 

. 

00302 

02 

PZM 

, 

00303 

C3 

PZ1 

PICTURE 

X. 

0030A 

03 

PZ2 

PICTURE 

X. 

00305 

03 

PZ3 

PICTURE 

X. 

00306 

03 

PZA 

PICTURE 

X. 

00307 

213A 

02 

PZMP 

■ 

00308 

01 

PZMP  1 

PICTURE 

X. 

00309 

93 

PZMP2 

PICTURE 

X. 

00310 

03 

PZMP3 

PICTURE 

X. 

00311 

03 

PZMPA 

PICTURE 

X. 

00312 

01 

Mt-STORE  s. 

00313 

02 

M-1ST. 

0031 A 

03 

M-ST1 

PICTURE 

xxxx. 

00315 

03 

M— ST  IB 

PICTURE 

X. 

00316 

02 

H-2ST. 

00317 

91 

M-ST2 

PICTURE 

xxxx. 

00318 

31 

M-ST2B 

PICTURF 

X. 

00319 

02 

M-3ST. 

0C320 

01 

M-ST3 

PICTURE 

XXXX. 

00321 

03 

M-ST3R 

PICTURE 

X. 

00322 

02 

M-AST. 

0C323 

03 

M-STA 

PICTURE 

xxxx. 

0032  A 

03 

M-STAB 

PICTURE 

X  . 

0032  5 

C2 

M— 5ST  • 

00326 

03 

M-ST5 

PICTURE 

xxxx. 

30327 

03 

M-ST5B 

PICTURE 

X. 

30328 

02 

M-6ST. 

00329 

03 

M-ST6 

PICTURE 

xxxx. 

03330 

03 

M-ST6B 

PICTURE 

X  . 

30331  •*  1608  01  O-CALOATE. 

00332  1609  02  O-CPO  PICTURE  XX. 

0C333  16U) _  92  O-CDY _ PICTURE  XX.  _ 

0033  A  1611  "C2  n-CVR  PICTURE  XX. 

CD338  01613  01  AERR. 

00316  **  161A  02  AEF  PICTURE  X  VALUE  *0*. 

C333  7  '  9 1 5 1 A  02  F 1 LLFR  PICTURE  XI7I  VALUE  • I-CARD  '. 

33339  01615  0?  AEA  PICTURE  X(9)  VALUE  SPACF. 

30339  01616  C 2  F [LLFR  PICTURE  XI19I  VALUE  '  INSTR  ASSICNEDTO 


CM000019 

CH000019 

CM000019 

CM000019 

CM000019 
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7 

00340 

01617 

C2 

AFB 

PICTURE  XI9I  VALUE 

SPACE. 

CM000019 

30341 

**  1618 

32 

FILLER 

PICTURE  XISBI. 

CH000G19 

00342 

01610 

Cl 

RERR. 

CM000019 

00343 

01620 

02 

BFE 

PICTURE  X  VALUE  *0* 

CH000019 

30^44 

01621 

G2 

FILLER 

PICTURE  X I 9 1  VALUF 

•ERROR  AT  •. 

CH000019 

30345 

**  1622 

C? 

BEA 

PICTURE  9131. 

30346 

Cl  62 3 

02 

F ILLER 

PICTURE  X  [91  VALUE 

•ON  INPUT  '. 

CHOOOO 19 

30347 

01624 

C2 

BEB 

PICTURE  XI9)  VALUE 

SPACE. 

CM000019 

3034* 

**  1625 

C  2 

FILLFR 

PICTURE  XI102). 

CM000019 

00349 

01701 

01 

CCR 

R. 

CM000019 

D0350 

01702 

02 

CEF 

PICTURE  X  VALUE  *0* 

CH000019 

00351 

01703 

02 

c 1 LLFP 

PICTURE  X ( 12 1  VALUE 

•INST.  N/A  IN'. 

CM000019 

0035? 

01704 

02 

CEA 

PICTURE  X I 9 1 . 

C HO OOOl 9 

30353 

01705 

02 

FILLER 

PICTURE  X14)  VALUE 

•  AT  *. 

CM000019 

00354 

01706 

C  2 

CEB' 

PICTURE  9131. 

CM000019 

■3035  5 

**  1707 

C2 

FILLER 

PICTURE 

XI 104] . 

CM000019 

00356 

1 7C8  01  PATTAB. 

00357 

1709 

02 

APT1 

PICTURE 

XI4)  OCCURS 

96  TIMES. 

CM000019 

30358 

1710 

02 

APT  1 A 

PICTURE 

9  OCCURS  96 

TIMES. 

00359 

1711 

G2 

APT2 

PICTURE 

X 1 9 )  OCCURS 

96  TIMES. 

00360 

1712 

C2 

APT3 

PICTURE 

XI7)  OCCURS 

96  TIMES. 

C0361 

1713 

C2 

APT4 

PICTURE 

X  1 9)  OCCURS 

96  TIMES. 

CH000019 

00362 

♦  *  1714 

02 

APT5 

PICTURE 

9  OCCURS  96  TIMES. 

3C363 

01301  01  B-TEHP. 

CM000019 

00364 

•*  1802 

0? 

BT1 

PICTURE 

X I  41  . 

CM000019 

00  36  6 

01803 

02 

BT? 

PICTURE 

9. 

CM000019 

30366 

01*34 

02 

BT  3  . 

CM000019 

30367 

01  R!-5 

03 

PICTURE 

X. 

CM000019 

0036  B 

01836 

03 

BT3B 

PICTURE 

XI3). 

CH000019 

30369 

01R9T 

03 

BT3C 

PICTURE 

X. 

CM000019 

00370 

01838 

02 

B3TR 

REDEFINES  BT3. 

CH000019 

30371 

C18"'3 

03 

B3TRA 

PICTURE 

XX. 

CM000019 

00372 

01813 

03 

B3TRB 

PICTURE 

XX. 

CHOOOO 19 

3037  3 

C 1 81 1 

Cl 

B3TRC 

PICTURE 

X. 

CHOOOO 19 

00374 

318111 

C2 

B3TRR 

REDEFINES 

B3TR. 

CM000019 

00375 

018112 

33  B3TRRA  PICTURE  XXXX. 

CM000019 

00376 

018113 

03  B3TRRB  PICTURE  X. 

CM000019 

30377 

01812 

02 

BT4 

PICTURE 

XI 24) . 

CM000019 

30378 

C  1 8 1  3 

02 

BT5  • 

CM000019 

00379 

01314 

03 

PICTURE 

XX. 

CM000019 

00380 

0181  5 

03 

B5TB 

PICTURE 

XX. 

CM000019 

30331 

01816 

C2 

BT6  . 

CM000019 

003B2 

01818 

03 

BT  6B 

PICTURE 

X  I  3  1  • 

CM000019 

00383 

**01817 

33 

BT6A 

PICTURE 

X 1  6 1  • 

CM000019 

00384 

01819 

02 

BT7. 

CM000019 

00385 

01820 

03 

BT7A 

PICTURE 

XX. 

CM000019 

30386 

01321 

03 

BT7A1 

PICTURE 

X. 

CM000019 

0G3H7 

01  82? 

33 

BT7B 

PICTURE 

XI  3  1  . 

CM000019 

30388 

01823 

33 

BT7C 

P1CTURF 

X. 

CM000019 

30389 

01324 

02 

RT7R 

REDEFINES  BT7. 

CM000019 

OC  390 

01825 

03 

BT7RA 

PICTURE 

XI  3  1  . 

CM000019 

00391 

01901 

03 

3T7RB 

PICTURE 

X. 

CM000019 

00392 

01902 

03 

BT7RC 

PICTURE 

X  f  3  1  . 

CM000019 

0039? 

01903 

C  2 

BT8  • 

CM000019 

00394 

019C5 

03 

BT8B 

PICTURE 

XI 3 1 . 

CM000019 

00395 

**01904 

03 

BTSA 

PICTURE 

X 1  6 1 . 

CM003019 

00396 

01906 

02 

0T9. 

CM0C0019 
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00397 

01908 

03 

BT9B 

PICTURE  X(3 1 . 

CM000019 

0039B 

**01907 

03 

BT9  A 

PICTURE  X (4 1 . 

CH000019 

00399 

01909 

0i 

BT 10 

PICTURE  X ( 9 1  ■ 

CM000019 

00400 

01910 

C2 

Bill 

PICTURE  X. 

CMOOOO 19 

00401 

02001 

oi. 

SQCK-LN. 

CHOOOOI9 

00402 

**  2002 

02 

FILLER 

PICTURE 

XI  4 1 . 

0040A. 

20021 

02 

A1B5 

PICTURE 

9. 

00404 

**  20021 

02 

A1B6 

REDEFINES  A1B5. 

00405 

♦*  20021 

03  A1A6  PICTURE  X. 

00406 

20022 

02 

FILLER 

PICTURE 

X  I  40 1  . 

00407 

02003 

02 

A135A 

PICTURE 

X. 

CMOOOO 19 

004OS 

*«  20031 

02 

A135B 

PICTURE 

X. 

CM000019 

00409 

20032 

02 

A13R8 

REDEFINES  A135B  PICTURE  9. 

CMOOOC 19 

00410 

2004 

02 

FILLER 

PICTURE 

XI 61 . 

CM000019 

00411 

2005 

02 

A15  5A 

PICTURE 

X. 

00412 

02 

A1558 

PICTURE 

X. 

CMOOOO 19 

00413 

20052 

02 

A15RB 

REDEFINES  A155B  PICTURE  9. 

CM000019 

0C414 

2008 

02 

FILLER 

PICTURE 

X  I  6 1  . 

CM000019 

00415 

2009 

02 

A185A 

PICTURE 

X. 

00416 

20091 

02 

A185B 

PICTURE 

X. 

CM000019 

00417 

'20092 

02 

A18R8 

REDEFINES  A185B  PICTURE  9. 

CM000019 

00418 

2010 

02 

FILLER 

PICTURE 

XI 171  . 

00419 

2019 

01 

ALN- 

-TAB. 

00420 

2020 

02 

ALN 

PICTURE 

X ( 801  OCCURS  6  TINES. 

CM000019 

00421 

02101 

01 

SQTAB. 

CM000019 

00422 

*♦  2102 

02 

OPRTA 

PICTURE 

X 1 4 1  OCCURS  6  TIMES. 

CM000019 

00423 

2103 

02 

QPRTB 

PICTURE 

9  OCCURS  6  TIMES. 

CM000019 

00424 

2104 

02 

OPRTC 

PICTURE 

XI 51  OCCURS  6  TIMES. 

CM000019 

00425 

21041 

02 

QPRTO 

PICTURE 

S9  C0MPUTAT10NAL-3  OCCURS  6 

TIMES. 

CM000019 

00426 

21042 

02 

qprte 

PICTURE 

X 1 9 1  OCCURS  6  TIMES. 

CMOOOO 19 

00427 

02 

QPRTF 

PICTURE 

XI 91  OCCURS  6  TIMES. 

00428 

02105 

01 

AOUT-PRT. 

CM000019 

00429 

021051 

02 

CCA 

PICTURE 

X  VALUE  *0'. 

CM000019 

00430 

*+  2106 

02 

FILLER 

PICTURE 

XI6I  VALUE  SPACE. 

CH000019 

00431 

2107 

02 

FILLER 

PICTURE 

X  VALUE  «C'. 

CMOOOO 19 

00432 

2108 

02 

filler 

PICTURE 

XI 15}  VALUE  SPACE. 

CMOOOO 19 

00433 

2109 

02 

FILLER 

PICTURE 

XI 121  VALUE  'FROM 

TO*. 

CMOOOO 19 

00434 

2113 

°2  ; 

FILLER 

PICTURE 

XI 481  VALUE  SPACE. 

00435 

21101 

02  1 

FILLER 

PICTURE  XI 501  VALUE  *C 

FROM 

TO 

00436 

21102- 

I 

«. 

0043  7 

2111 

01 

A AOUT-PRT. 

CMOOOO 19 

00438 

21111 

02 

CCAA 

PICTURE 

X  VALUE  •  *  . 

CM000019 

00439 

21112 

02 

FILLER 

PICTURE 

XI26I  VALUE  'ITEM  C 

DEVICE 

POIN* .CM000019 

00440 

21113 

02 

FILLER 

PICTURE 

XIUI  VALUE  »T  POINT*. 

00441 

21114 

02 

FILLER 

PICTURE 

XI 391  VALUE  SPACE. 

00442 

21115 

02 

FILLER 

PICTURE 

XC56I  VALUE  'ITEM  C 

DEVICE 

POINT 

0044  3 

21116- 

1 

POINT 

00444 

02112 

01 

BOUT-PRT. 

CM003019 

00445 

02113 

02 

CCB 

PICTURE 

X  VALUE  'O'. 

CN000019 

00446 

**  2114 

02 

PAT  1 

PICTURE 

XI  4) . 

CM000019 

0044  7 

2115 

02 

FILLER 

PICTURE 

XX  VALUE  SPACE. 

CMOOOO 19 

00448 

2116 

02 

PAT  1 A 

PICTURE 

Z. 

00449 

2117 

02 

FILLER 

PICTURE 

XXX  VALUE  SPACE. 

CM000019 

00450 

2118 

02 

PAT2 

PICTURE 

X  I  91  • 

CM000019 

30451 

2119 

02 

FILLER 

PICTURE 

XXX  VALUE  SPACE. 

CH000019 

30452 

2120 

02 

PAT  3 

PICTURE 

XI  7}. 

CM000019 

0045  3 

2121 

02 

FILLER 

.PICTURE 

XXX  VALUE  SP.ACE. 

CMOOOO 19 
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9 

00454 

00455 

00456 

2122 

2123 

21231 

— 

02 

02' 

02 

PAT4 

FILLER 

TAPI 

PICTURE  Xt9i. 

PICTURE  X 1 351  VALUE  SPACE. 
PICTURE  XXXX  VALUE  SPACE. 

CM0000L9 

00457 

02 

FILLER 

PICTURE 

XX  VALUE  SPACE. 

00458 

2125 

02 

TAPIA 

PICTURE  2 

>  ^ 

00459 

2126 

02 

FILLER 

PICTURE 

XXX  VALUE  SPACE. 

00460 

2127 

02 

TAP2 

P  ICTURE 

XI9I  . 

00461 

2128 

02 

FILLER 

PICTURE 

XXX  VALUE  SPACE. 

00462 

2129 

02 

TAP3 

PICTURE  X I  7 i • 

00463 

02 

FILLER 

PICTURE 

XXX  VALUE  SPACE. 

00464 

2131 

02 

TAP4 

PICTURE 

XI  9  ]  • 

00465  **  2123 

02 

FILLER 

PICTURE 

X 19 1  VALUE  SPACE. 

00466 

2133 

oi_ 

PAT  36 

PICTURE 

99. 

00467 

2134 

02 

P2PAT 

PICTURE 

XXXX. 

00468 

02201 

01 

COUT-PRT. 

CM000019 

00469 

02202 

02 

CCC 

PICTURE 

X  VALUE  'O'. 

CM000019 

00470  **  2233 

02 

FILLER 

PICTURE 

XI 26)  VALUE  1  C 

• . CM000019 

00471 

2204 

02 

FILLER 

PICTURE 

XI 26 )  VALUE  •  TRAN 

TRAN 

' . CM030019 

30472 

2205 

02 

FILLER 

P ICTURE 

X 1 261  VALUE  'CONNECTING 

VI  RED  UDC 

' . CM000019 

30473 

2206 

02 

FILLER 

PICTURE 

XI 26)  VALUE  •  SIG.  S1G. 

1 . CM03001 9 

00474 

2237 

02 

FILLER 

PICTURE 

X 1 26)  VALUE  •  T  VP  CAB 

LOC 

ITEM  C 

' . CM000019 

00475 

2208 

02 

FILLER 

PICTURE 

XI 261  VALUE  •  '. 

CM000019 

00476 

02209 

01 

OOUT-PRT. 

CM000019 

00477 

02210 

02 

CCD 

PICTURE 

X  VALUE  • 

CM000019 

00478  **  2211 

02 

FILLER 

PICTURE 

X 1 26)  VALUE  'PARAMETER  C 

NOMENCLATURE 

• . CMOOOC19 

00479 

2212 

02 

FILLER 

PICTURE 

XI 26)  VALUE  •  CARD 

I— NO. 

DEVI 

' • CM000019 

00480 

2213 

02 

FILLER 

PICTURE 

XI26)  VALUE  *CE  POINT 

S.C 

.  CARD' . CM000019 

3048  1 

WESM 

02 

FILLER 

PICTURE 

XI 26)  VALUF.  ■  COND.  CONO. 

READOUT 

'.CMO 00019 

30482 

2215 

02 

FILLER 

PICTURE 

XI 26)  VALUE  •  NO.  FAB 

SK. 

NO  C 

1 . CM030019 

00493 

22151 

02 

FILLER 

PICTURE 

XI 26 1  VALUE  '  '. 

00484 

02216 

01 

EOUT-PRT. 

00485 

02217 

02 

CCE 

PICTURE 

X  VALUE  'O'. 

00486 

02219 

02 

P871 

PICTURE 

XI9). 

00487  **  2220 

02 

FILLER 

PICTURE 

X  VALUF  SPACE. 

00488 

22201 

02 

P8T1A 

PICTURE 

9. 

00489 

22202 

02 

FILLER 

PICTURE 

X  VALUE  SPACE. 

00490 

02221 

02 

PBT2 

PICTURE 

XI1B). 

00491 

02222 

02 

FILLER 

PICTURE 

XXX  VALUE  SPACE. 

00492 

02223 

02 

PB73 

PICTURE 

XI 4  )  • 

00493  **  2224 

02 

FILLER 

PICTURE 

XX  VALUE  SPACE. 

00494 

022250 

02 

PBT4 

PICTURE 

X  16)  . 

00495  **  2301 

02 

FILLER 

PICTURE 

XI 3)  VALUE  SPACE. 

00496 

2302 

02 

PBT5A 

PICTURE 

XI9). 

00497 

23021 

02 

FILLER 

PICTURE 

X  VALUE  SPACE. 

00498 

23023 

02 

PBT5B 

PICTURE 

XI  7)  . 

00499 

23024 

02 

FILLER 

PICTURE 

XX  VALUE  SPACE. 

00500 

2304 

02 

PBT6 

P  ICTURE 

X  l  5 1 . 

00501  **  2303 

C2 

FILLER 

PICTURE 

X  VALUE  SPACE. 

00502 

2335 

02 

FILLER 

PICTURE 

X  VALUE  SPACE. 

00503 

023060 

02 

PBT7 

PICTURE 

X I  4 )  » 

00504'  **  2307 

02 

FILLER 

PICTURE 

XXX  VALUE  SPACE. 

CM000019 

00505 

02308 

02 

PBT8 

PICTURE 

XI  51  . 

CM000019 

00506  **  2309 

C2 

FILLER 

PICTURE 

XXX  VALUE  SPACE. 

CM000019 

005C7 

2310 

02 

P8T9 

PICTURE 

X 1 51 . 

00508 

2311 

02 

FILLER 

PICTURE 

XXX  VALUE  SPACE. 

CMOOOC19 

00509 

02312 

02 

PBT10 

PICTURE 

XI  51  . 

CM300019 

00510 

023130 

02 

FILLER 

PICTURE 

XI 4)  VALUE  SPACE. 
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005  ll 
30512 
00513 

02314 

02315 

02316 

02 

C2 

02 

PBTll 

FILLER 

PBT12 

PICTURE 

PICTURE 

PICTURE 

X 1  4 1/. 

XX  VALUE  SPACE. 

XI  41  . 

CM000019 

CM003C19 

CM000019 

CM000019 

00514  02317 

00515  02310 

00516  023190 

30517  **  2323 

30518  2321 
00519  2322 

C2 

02 

02 

02 

02 

02 

FILLER 

P8T13 

FILLER 

PBT14 

FILLER 

PBT15 

PICTURE 

PICTURE 

PICTURE 

P  ICTURE 
PICTURE 
PICTURE 

XX  VALUE  SPACE. 

XX. 

XX.  VALUE  SPACE 

X(4I. 

XX  VALUE  SPACE. 

9. 

• 

00520 

2323 

02 

FILLER 

PICTURE 

XXX  VALUE  SPACE. 

CM003019 

00521 

02401 

01 

UK- 

TAB. 

CM000019 

00522  **  2402 

02 

PI  PICTURE  XI 9 1 

OCCURS  6  TIMES. 

30523 

24021 

02 

PI  A 

PICTURE 

9  OCCURS  6  TIMES. 

00524 

2433 

02 

P2  PICTURE  X (  19  1  OCCURS  6  TIMES. 

* 

I'I'W* 

02 

P3  PICTURE  X 1 41 

OCCURS  6  TIMES. 

00526 

2405 

02 

P4  PICTURE  X J 9) 

DCCURS  6  TIMES. 

30527 

2406 

02 

P5A  PICTURE  X<  9 ) 

OCCURS  6  TIMES. 

00528 

24061 

02 

P5B  PICTURE  XI 7 ) 

OCCURS  6  TIMES. 

00529 

2407 

02 

P6  PICTURE  XI 5) 

OCCURS  6  TIMES. 

CN000019 

00530 

2408 

02 

P7  PICTURE  Xt  61 

OCCURS  6  TIMES. 

00531 

2409 

02 

PS  PICTURE  X(5> 

OCCURS  6  TIMES. 

00532 

2410 

02 

P<? 

PICTURE 

XI  51  OCCURS  6  TIMES 

• 

CMOOOC 19 

00533 

2411 

02 

P10  PICTURE  XI 51 

OCCURS  6  TIMES. 

00534 

2412 

02 

Pll  PICTURE  X I 4 1  OCCURS  24. 

00535 

2413 

02 

P12  PICTURE  X( 4 1  OCCURS  24. 

00536 

2414 

02 

P13  PICTURE  XX 

OCCURS  6  TIMES. 

3C537 

2415 

C2 

P14 

PICTURE 

XI 4)  OCCURS  6  TIMES 

■ 

CM000019 

30538 

2416 

02 

»15 

PICTURE 

S9  COMPUTATIONAL-3 

OCCURS  6  TIMES. 

03534 

2417 

C2 

P16 

PICTURE 

S9  COMPUTATIONAL- 3 

DCCURS  6  TIMES. 

CM000C19 

00540 

02501 

01 

FOUT-PRT. 

CM000019 

00541 

02502 

C2 

CCF 

PICTURE 

X  VALUE  *1». 

CM300019 

CO  547 

02503 

02 

FILLER 

PICTURE 

XI 531  VALUE  SPACE. 

CM003019 

00543 

C2504 

72 

FILLER 

PICTURE 

XI 2  6]  VALUE  ‘HOOKUP 

INFORMATION  DATA  ' 

.CM000019 

00544 

02505 

02 

FILLER 

PICTURE 

XI 531  VALUE  SPACE. 

CM00001 9 

30545 

02506 

Cl 

GDUT-PRT. 

CM000019 

00546 

42537 

02 

CCG 

PICTURE 

X  VALUE  »1*. 

CM000019 

00547  *•  250S 

02 

FILLER 

PICTURE 

XI 33)  VALUF  ' 

PATCHING  -  P91 

00548 

025081- 

•  . 

00549 

025C82 

02 

FILLER 

PICTURE 

X I 45 1  VALUE  SPACE. 

Qf>55n 

025083 

02 

FILLER 

PICTURE 

XI31I  VALUE  ' 

PATCHING  -  PB2 

0055  1  *«  25084- 

1 

■ . 

30552 

25090 

02 

FILLER 

PICTURE 

X 1 22 1  VALUE  SPACE. 

00553 

2510 

01 

O-TEMP. 

CMOOOC 19 

OC  554 

25101 

02 

0-1 

PICTURE 

X 1  4 1 . 

00555 

2512A 

C  2 

0-1A 

PICTURE 

X. 

03456  **  25102 

C  2 

0-2 

PICTURE 

XI  91 . 

CM3Q0019 

0C557 

25103 

02 

FILLER 

PICTURE 

X  VALUE  'C*. 

CMOC0019 

00558 

25104 

02 

FILLER 

PICTURE 

X I 65 1  VALUE  SPACE. 

00554 

25105 

01 

Bn- 

TE“P. 

CM000019 

00560 

25106 

0? 

BO-  1 

PICTURE 

XI  41 . 

00461  *♦  2510A 

02 

BO-  1A 

PICTURE 

X. 

00562 

251G7 

02 

BO-2 

PICTURE 

X  (  9 1  . 

CIO 00019 

30563 

25108 

02 

FILLER 

PICTURF 

X  VALUE  'B'. 

CM000019 

30564 

26109 

02 

FILLER 

PICTURE 

X ( 65 J  VALUF.  SPACE. 

CM000O19 

00565 

2517 

01 

A-TEMP. 

CM000019 

00*166  **  209 

0? 

A1  PICTURE  X ( 4  1  ■ 

C0567 

CC213 

02 

A  1 B 

PICTURE  9. 

CM000019 
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30568 

**  2101 

02 

A 18 

REDEFINES  ALB. 

00569 

2132 

03 

A1BR  PICTURE  X. 

0057P 

00211 

C2 

A2  PICTURF 

XC7I. 

CM000019 

C0571 

00212 

32. 

A3  PICTURE 

X. 

CM000019 

C3572 

00213 

02 

A4. 

CM000019 

0057,1 

*«  214 

03 

A4A  PICTURE  XX. 

CM000019 

0C574 

215 

03 

A*B  PICTURE  XX. 

.  CMOOOOI9_ 

00575' 

'0"2151 

03 

A4C  PICTURE  X. 

00576 

*♦  216 

32 

A4R  REDEFINES  A4 . 

CM000019 

30577 

217 

03 

A4AR  PICTURE  X. 

CM000019 

30578- 

213 

03 

A48R  PICTURE  XXX. 

CM000019 

00579 

037181 

03 

A4CR  PICTURE  X. 

OC5BO 

**  219 

02 

A4RS  REDEFINES  A4R. 

CM00Q019 

00581 

220 

01 

A4ARR  PICTURE  XX. 

CN000019* 

00582 

03 

A4BRR  PICTURE  X. 

CH003019 

00583 

2202 

03 

A4CRR  PICTURE  X. 

CM003019 

03534 

C02203 

03 

A4DRR  PICTURE  X. 

00585 

00221 

02 

A  5  . 

CM000019 

00586 

-9C222 

03 

A5A  PICTURE 

X. 

CM000019 

00537 

00223 

33 

A5B  PICTURE 

X  I  3  )  • 

CM000019 

00538 

00224 

03 

A5C  PICTURE 

X. 

CH003019 

00689 

00225 

02 

A5R  REDFFINES  A5. 

CM003019 

00590 

♦  *  301 

03 

A5AR  PICTURE  XX. 

CM0C0019 

00591 

302 

03 

A5BR  PICTURE  XX. 

CMOOOOI 9 

00592 

303 

03 

A5CR  PICTURE  X. 

CH000019 

00593 

00304 

02 

A6  PICTURE 

X. 

CH003019 

00594 

00305 

02 

A7. 

CH000019 

00595 

00306 

03 

A7A  PICTURF 

X. 

CM000019 

00596 

00307 

03 

A7B  PICTURE 

X  (  3  1  . 

CM000019 

00597 

00308 

03 

A7C  PICTURE 

X. 

CM000019 

00598 

00309 

C2 

A7R  REDFFINES  AT. 

CM000019 

00599 

♦*  310 

03 

A7AR  PICTURE  XX. 

CMQ0C019 

00600 

311 

03 

A7BR  PICTURE  XX. 

CM00D019 

CC601 

312 

03 

A7CR  PICTURE  X. 

CH000019 

0060  2' 

00313 

02 

AS  . 

CMOOOOI  9 

03603 

00314 

03 

ARA  PICTURE 

X. 

CM000019 

00634 

OC315 

33 

A  9B  PICTURE 

X 1 3 1  . 

CMOOOOI 9 

00635 

0C316 

33 

ABC  PICTURE 

X.  1 

CM0C0019 

0340  6 

00317 

C2 

A8K  REOEFINES  A8. 

CM000019 

00607 

**  317 

33 

A 8AR  PICTURE  XX. 

CM000019 

CC6PR 

318 

33 

A8BR  PICTURE  XX. 

CM000019 

03609 

319 

33 

A8CR  -PICTURE  X. 

CH000019 

00613 

0C321 

02 

A 9  PICTURE 

X. 

CM000019 

00611 

00322 

02 

A10. 

CM000019 

00612 

0C323 

03 

AlOA  PICTURE 

X. 

CM000019 

00613 

00324 

03 

A10B  PICTURE 

xm. 

CMOOOOI 9 

00614 

0C325 

03 

A10C  PICTURE 

X. 

CM000019 

00615 

00*01 

02 

A  ICR  REDEFIN 

ES  A10. 

CM000019 

00516 

**  4011 

33 

A  ICAR  PICTURE  XX. 

CM0C0019 

00617 

4012 

33 

A1CBR  PICTURE  XX. 

CM000019 " 

00618 

4013 

33 

A1CCR  PICTURE  X. 

CMOOOO 19 

006]  9 

0040  2 

02 

All  PICTURE 

X. 

CM000019 

00620 

00403 

02 

A 12  ■ 

CMOOOC19 

30621 

**  404 

03 

A12A  PICTURE  XX. 

CM000019 

00622 

**  05 

03 

A12B  PICTURE  XX. 

CMOOOOI  9 

00621 

06 

02 

A12R  REDEFINES  A12. 

CMooo'oisf 

00624 

07  ' 

03 

A12AR  PICTURF  X. 
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00625 

08 

03 

A1 2BR  PICTURE  XXX. _  . 

CM000019 

00626 

409 

02 

A12RR  REDEFINES  A12R. 

CM000019 

M.H4I 

4091 

03 

A12ARR  PICTURE  XX. 

CM000019 

00626 

03 

A12BRR  PICTURE  X. 

CM000019 

00629 

4093 

03 

A12CRR  PICTURE  X. 

CH000019 

00630 

00410 

02 

A 13  . 

CMOOOO 19 

00631 

00411 

03 

A13A. 

CMOOOO 19 

00632 

00412 

04  A13C  PICTURE 

X. 

CMOOOO 19 

04  A13D  PICTURE 

X. 

CM0Q001 9 

00634 

00414 

03 

A13B. 

CM000019 

00635 

00415 

04  A13E  PICTURE 

X. 

CM000019 

00636 

00416 

04  A13F  PICTURE 

X. 

CM000019 

00637 

**  417 

.02 

A14. 

00638 

418 

03 

A14A  PICTURE  XX. 

30639 

419 

03 

A14B  PICTURE  XX. 

00640 

4191 

02 

A 14R  REDEFINES  A14. 

CK003019 

30641 

4192 

33 

A14AR  PICTURE  X. 

CH003019 

00642 

4193 

03 

A14BR  PICTURE  XXX. 

CN000019 

00643 

4194 

02 

A14RR  REDEFINES  A14R. 

CMC00019 

00644 

4195 

03 

A14ARR  PICTURE  XX. 

CH000019 

00645 

4196 

03 

A14BRR  PICTURE  X. 

CM30Q019 

00646 

4197 

03 

A14CRR  PICTURE  X. 

CM000019 

00647 

00420 

02 

A15. 

CM300019 

0C648 

00421 

03 

A 1 5A  • 

■ CMQ00019 

00649 

00422 

04  A15C  PICTURE 

X. 

CM000019 

0C650 

00423 

04  A15D  PICTURE 

X. 

CM0Q0019 

00651 

00502 

02 

A  1  6  . 

CMQ00019 

00652 

00506 

03 

A 168. 

C«000019 

00653 

00507 

04  A16E  PICTURE 

X. 

CH000019 

00654 

00508 

04  A16F  PICTURE 

X. 

CMOOOO 19 

00655 

00509 

02 

A17. 

CMOOOO 19 

00656 

00510 

03 

A17A  PICTURE 

XX. 

CM000019 

00657 

00511 

03 

A17B  PICTURE 

XX. 

CH000019 

00658 

**  5111 

02 

A17R  REDEFINES  AIT. 

00659 

5112 

03 

A17AR  PICTURE  X. 

00660 

5113 

03 

A178R  PICTURE  XXX. 

00661 

5114 

02 

A17RR  REDEFINES  A1TR. 

00662 

5115 

03 

A17ARR  PICTURE  XX. 

00663 

5116 

03 

A17BRR  PICTURE  X. 

00664 

5117 

03 

A17CRR  PICTURE  X. 

00665 

00512 

02 

A18  • 

CM000019 

00656 

00513 

03 

A18A. 

CH000019 

00667 

00514 

04  A18C  PICTURE 

X. 

CM000019 

00668 

00515 

04  A1BD  PICTURE 

X. 

CM000019 

00669 

00516 

03 

A 188  • 

CM000019 

00670 

00517 

04  A18E  PICTURE 

X. 

CM000019 

00671 

00518 

04  A1BF  PICTURE 

X. 

CM000019 

00672 

00519 

02 

A19. 

CM000019 

00673 

»*  520 

03 

A19A  PICTURE  X. 

CM000019 

00674 

521 

03 

A19B  PICTURE  XI 3 ) . 

CM000019 

00675 

522 

03 

A19C  PICTURE  X. 

CH000019 

00676 

523 

02 

A 19R  REDEFINES  A19. 

CMOOOO 19 

00677 

524 

03 

A19AR  PICTURE  XX. 

CM003019 

00678 

525 

03 

A19BR  PICTURE  XX. 

CMOOOO 19 

00679 

5251 

03 

A19CR  PICTURE  X. 

CMOOOO 19 

00680 

601 

02 

A20. 

00681 

602 

_ 

03 

A20A  PICTURE  XX. 

CM000019 
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00632 

00633 

00634 

6021 

6022 

6323 

0  2“ 

03  A208  PICTURE  XX. 

A20R  REOEFINES  A20. 

03  A20AR  PICTURE  X. 

CM000019 

CH000019 

CH000019 

00685 

.  6324 

03  A20BR  PICTURE  XXX. 

CH000019 

00686 

6025 

02 

A20RR  REOEFINES  A20R. 

CM000019 

00637 

6026 

03  A20ARR  PICTURE  XX. 

CH3OO019 

00688 

6027 

03  A20BRR  PICTURE  X. 

CMC00019 

00639 

603 

03  A20CRR  PICTURE  X. 

CM000C19 

00690 

608 

02 

A2 1  PICTURE  X I 4 1 • 

00691 

609 

C2 

A22  PICTURE  XX. 

00692 

** 

01 

01 

AB- 

HD. 

CM000020 

00693 

202 

02 

A88 

PICTURE  X  VALUE  '0*. 

CM000020 

00694 

203 

02 

FILLER 

“ICTURE  X 1  2  61  VALUE  1 

C 

• • CM000020 

00695 

204 

02 

FILLER 

PICTURE  XI 26)  VALUE  * 

TYPE 

•  .CM000320' 

00696 

205 

02 

FILLER 

PICTURE  X 1 26 1  VALUE  • 

FROM 

• .CH000020 

00697 

206 

02 

filler 

PICTURE  XI 26)  VALUE  ■ 

TO 

US • . CH000320 

00698 

207 

02 

FILLER 

PICTURE  XI 26)  VALUE  *E0  FOR 

TEST 

’  . CHD00D20 

00699 

208 

02 

FILLER 

PICTURE  XX  VALUE  SPACE. 

CH003020 

00700 

2081 

01 

ABB 

-HD. 

CM000020 

00701 

2082 

02 

ABBS 

PICTURE  X  VALUE  •  *. 

CM000020 

00702 

2083 

C2 

FILLER 

PICTURE  XI 261  VALUE  'CARD 

C 

IOEN.  i 

DESCRIPTI ■ . CR003020 

00703 

2084 

02 

FILLER 

PICTURE  XI 26)  VALUE  'ON 

COOE 

D* .CM000020 

00704 

2085 

02 

FILLER 

PICTURE  XI 26 1  VALUE  ’EVICE 

DEVICE 

PT 

OE  ’  • CH000020 

OC  705 

2086 

02 

FILLER 

PICTURE  XI 261  VALUE  ’VICE 

DEVICE 

PT 

PA ’ . CMOO3O20 

OC  706 

2087 

02 

FILLER 

PICTURE  XI 26)  VALUE  ’RANETER 

CELL 

1  • CM00002  0 

00707 

2088 

02 

FILLER 

PICTURE  XX  VALUF  SPACE. 

CH000020 

0C70B 

** 

208  A 

01 

AB8S-HO. 

CH003J020 

00709 

2088 

02 

FILLER 

PICTURE  X  VALUE  M’. 

CM000020 

03710 

208C 

02 

FILLER 

PICTURE  XI63I  VALUE  SPACE. 

CR003020 

00711 

208  D 

02 

FILLER 

PICTURE  XI 61  VALUE  • B-FILE 1 

1  • 

CMO 00020 

00712 

2C8F 

02 

FILLER 

PICTURE  XI63)  VALUE  SPACE. 

CH000020 

00713 

** 

09 

31 

38- 

HO. 

CH000020 

00714 

10 

02 

B8B 

PICTURE  X  VALUE  ’O’. 

CH000020 

00715 

12 

02 

B1H 

PICTURE  XI 4) . 

C'*000020 

00716 

213 

02 

FILLER 

PICTURE  XX  VALUE  SPACE. 

C'*000C23 

00717 

** 

14 

02 

82H 

PICTURE  X. 

00718 

215 

02  FILLER 

PICTURE  XX  VALUE  SPACE. 

CM000020 

C0719 

** 

16 

02 

33H 

PICTURE  X 1 51 . 

CH000020 

00720 

17 

02 

filler 

PICTURE  X 1 3)  VALUE  SPACE. 

CH0C0020 

00721 

19 

02 

84H 

PICTURE  XI24). 

CH000020 

00722 

** 

15 

02' 

FILLER 

PICTURE  XI 3 1  VALUE  SPACE. 

CR030020 

00723 

20 

02 

8  5H 

PICTURE  XI  4}  • 

CH000020 

00724 

** 

13 

02 

FILLER 

PICTURE  XI 3 )  VALUE  SPACE. 

CM900020 

00725 

22 

02 

36H 

PICTURE  XI 91 . 

CH000020 

00726 

219 

02 

FILLER 

PICTURE  XI 3)  VALUE  SPACE. 

CH000020 

00727 

** 

24 

02 

S7H 

PICTURE  X 1 7 ) . 

CH000020 

00728 

«* 

21 

02 

F1LLFR 

PICTURE  XI 6)  VALUE  SPACE. 

CH000020 

00729 

** 

01 

02 

88H 

PICTURE  X 1 9 1 . 

CN000020 

00730 

25 

C2 

FILLER 

PICTURE  X 1 41  VALUE  SPACE. 

CH030320 

00731 

** 

03 

0? 

B9H 

PICTURE  XI 7) . 

CH000020 

00732 

325 

C  2 

FILLER 

PICTURE  XI6I  VALUE  SPACE. 

CMOOOC-20 

00733 

** 

05 

C  2 

HICH 

PICTURE  XI9I. 

CN0C0020 

00734 

** 

34 

02 

FILLER 

PICTURE  X 1 41  VALUE  SPACE. 

CMC00320 

00735 

07 

02 

8 1 1 H 

PICTURE  X. 

CM000320 

00736 

403 

02 

FILLER 

PICTURE  XI 16)  VALUF.  SPACE. 

CH030020 

00737 

** 

17 

Cl 

AA- 

HD. 

CM300320 

00733 

118 

C2 

AAA 

PICTURE  X  VALUE  ’O’. 

CHOC0020 
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00739 

119 

02 

FILLER 

PICTURE  XI 261  VALUE  « TYP  C  TRANSDUCER 

..  I  _•  »_CM000020  . 

00740 

120 

02 

FILLER 

PICTURE  XI 5)  VALUE  •CABLE*. 

30741 

121 

02 

FILLER 

PICTURE  XI 381  VALUE  SPACE. 

CM000020 

00742 

122 

02 

FILLER 

PICTURE  XI 261  VALUE  •  MIRED  P.B.  S1G. 

P.B.  ‘.CM000020 

00743 

123 

02 

FILLER 

PICTURE  XI 261  VALUE  •  P.8.  S1G.  P.B. 

'.CH000020 

00744 

124 

02 

FILLER 

PICTURE  X(ll)  VALUE  •  REC.  CAB  *. 

CM000020 

00745 

132 

01 

AAA 

-HD. 

CN000020 

00746 

125 

02 

AAAA 

PICTURE  X  VALUE  •  •. 

CM000020 

00  747 

02 

FILLER 

PICTURE  XI 26 1  VALUE  *N0.  -C  TYPE 

C  * . CM000020 

00749 

127 

02 

FILLER 

PICTURE  XI 261  VALUE  'TYPE  SIGNAL  ROUTING  •. 

00749 

_ 1.18 

02 

FILLER 

PICTURE  X( 261  VALUE  • 

S.C.  •. 

00750 

129 

02 

FILLER 

PICTURE  XI 261  VALUE  •  0  1  COND  01  0 

i  C  * • CMO  00020 

00751 

130 

02 

FILLER 

PICTURE  X 1 26 1  VALUE  *QND  0  I  JB  ELEC  FA'.CH000020 

00752 

131 

C2 

FILLER 

PICTURE  XX  VALUE  *B  *. 

CH000020 

00753 

133 

01 

4AAA-H0. 

CH000020 

00754 

134 

02 

AAA A-H 

PICTURE  X  VALUE  *1». 

00755 

135 

02 

FILLER 

PICTURE  X 1 63 1  VALUE  SPACE. 

CH000020 

00  756 

136 

02 

FILLER 

PICTURE  XI 6)  VALUE  * A-F1LE  •  • 

CM000020 

00757 

137 

02  , 

FILLER 

PICTURE  X(63>  VALUE  SPACE. 

CM000020 

00759  ♦* 

Cl 

01 

BA- 

HO." 

" CN000020 

00759 

Oil 

02 

BAA 

PICTURE  X  VALUE  ■O*. 

CM000020 

00760 

02 

A1H 

PICTURE  X 1 41 ■ 

CO  761 

02 

FILLFR 

PICTURE  X  VALUE  SPACE. 

00762 

05 

02 

A18H 

PICTURE  X.' 

00  76  3 

02 

FILLER 

PICTURE  XXX  VALUE  SPACE. 

00764 

07 

02 

A2H 

PICTURE  X I 7 I • 

CM000020” 

00765 

£2 

FILLER 

PICTURE  XI 6 )  VALUE  SPACE. 

00766 

09 

'02 

A3H 

PICTURE  X. 

CM000020 

00767 

02 

FILLER 

PICTURE  XXX  VALUE  SPACE. 

00769 

I  l 

02 

A4H 

PICTURE  XI  51. 

CM00002CT 

00769 

C  2 

FILLER 

PICTURE  XX  VALUE  SPACE. 

0C770 

13 

C2 

A5H 

PICTURE  X( 51 • 

CM000020 

C0771 

15 

C2 

A6M 

PICTURE  X. 

CH000020 

00772 

17 

02 

”A7H  "* 

“ICTURE  XI  51  • 

CM000020 

00773 

19 

02 

ASH 

PICTURE  XI 51 . 

CP000020 

00774 

21 

02 

A9H 

PICTURE  X. 

CM000020 

30775 

23 

02 

A19H 

PICTURE  XI 5 I . 

CM000020 

00776 

25 

02 

Al  1H 

PICTURE  X. 

CN000020 

00777  ** 

241 

02 

filler 

PICTURE  XI 14) 

VALUE  SPACE. 

00778 

02 

FILLER 

PICTURE  XXX 

VALUE 

SPACE. 

00779 

02 

A12H 

PICTURE  XI 4) . 

00780 

02 

FILLER 

PICTURE  XX 

VALUE 

SPACE. 

00781 

C2 

A13H 

PICTURE  XI4I. 

0C782 

C2 

FILLER 

PICTURE  XX 

~  VALUr 

"SPACE.” 

00783 

02 

A14H 

PICTURE  XI  41  ■ 

007B4 

02 

FILLER 

PICTURE  XX 

VALUE 

SPACE. 

00785 

02 

A15H 

PICTURE  XI 4) . 

007B6 

02 

FILLER 

PICTURE  XX 

VALUE 

SPACE. 

■30797 

02 

A16H 

PICTURE  XI 41 • 

0C789 

02 

FILLF.R 

PICTURE  XX 

VALUE 

SPACE. 

0C789 

02 

A17H 

PICTURE  XI4). 

0C79C 

02 

FILLFR 

PICTURE  XX 

VALUE 

SPACE. 

CCT9I 

02 

A19H 

PICTURE  X 1 4) . 

00792 

02 

FILLER 

PICTURE  XX 

”"  value" 

"SPACE.” 

00793 

02 

A19H 

PICTURE  XI 5 I . 

00794 

02 

FILLER 

PICTURE  XX  " 

VALUE 

SPACE. 

00795 

C2 

A20H 

PICTURE  XI 4) . 

■ 
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00796 

0G797 

00798 

** 

01 

01 

02 

02 

AC- 

FILLFR 
A2  1H 
HD. 

PICTURE 

PICTURE 

X  VALUE  SPACE. 

X  I  4)  • 

CM000020 

00799 

502 

02 

ACC 

PICTURE 

X  VALUE  •0*. 

CM000020 

coHon 

503 

02 

FILLER 

PICTURE 

XI261  VALUE  '  TEST 

T-OUCER 

1 . CM000020 

OCBOl 

504 

02 

FILLER 

PICTURE 

X 1 261  VALUE  •  8 

USEO 

FOR  * • CM000020 

0080  2 

505 

02 

FILLER 

PICTURE 

XI26I  VALUE  • 

B 

UDC  ' . CM000020 

308C3 

506 

02 

FILLFR 

PICTURE 

XI261  VALUE  •  R  POS. 

RN 

NEG.  R  * . CM000020 

00809 

507 

02 

FILLER 

PICTURE 

X I 26 »  VALUE  'N 

RE-CAL 

• • CM000020 

00805 

508 

02 

FILLER 

PICTURE 

XX  VALUE  SPACE. 

CHO 00020 

0C806 

509 

01 

ACC 

-HO. 

CM000020 

00807 

513 

02 

ACCC 

PICTURE 

X  VALUE  «  '. 

CM000020 

00808 

511 

02 

FILLER 

PICTURE 

XI 261  VALUE  1  CELL 

TYPE 

RANGE  ' . CM000020 

00839 

512 

02 

FILLER 

PICTURE 

XI261  VALUE  •  UNITS  C 

PARAMETER  TR ' • CM000020 

OOR19 

513 

C2 

FILLER 

PICTURE 

X 1 26  >  VALUE  'AN  MFC. 

I— NO. 

C 

CARD  '.CM000023 

30811 

514 

02 

FILLFR 

P  ICTURE 

XI261  VALUE  1  N  EQUIV. 

EQUIV. '.CM000020 

00812 

515 

02 

FILLER 

PICTURE 

X 1 26 1  VALUE  •  UNITS 

DATE 

• . CH000020 

00813 

516 

02 

FILLER 

PICTURE 

XX  VALUE  SPACE. 

CM000020 

00814 

517 

01 

ACCC-HO. 

CM000020 

30815 

518 

02 

CCCC 

PICTURE 

X  VALUE  M*. 

CM000020 

00816 

519 

02 

FILLER 

“ICTURE 

X I 63 1  VALUE  SPACE. 

CM000020 

30817 

520 

02 

FILLER 

PICTURE 

XI 6)  VALUE  'C-E1LE  * . 

CM000020 

3  C  0  1  8 

521 

02 

FILLER 

“ICTURE 

XI 63)  VALUE  SPACE. 

CM000020. 

0C8I9 

** 

C9 

oi 

SC- 

HO. 

CM000020 

00823 

10 

02 

3CC 

PICTURE 

X  VALUE  'O'. 

CM000020 

00821 

02 

FILLER 

PICTURE  XXXX  VALUE  SPACE. 

00822 

PZ 

C1H 

PICTURE  X. 

0C823 

02 

FILLER 

PICTURE  XX  VALUE  SPACE. 

30824 

15 

C2 

FILLER 

PICTURE 

XI 3)  VALUE  SPACE. 

CM000020 

00825 

16 

02 

C3H 

PICTURE 

X 1 7) . 

CM000020 

03826 

02 

FILLER 

PICTURE 

XXX  VALUE  SPACE. 

00827 

718 

02 

C4AH 

PICTURE 

XI  7)  • 

CM000020 

00828 

7181 

02 

FILLER 

PICTURE 

X  VALUE  SPACE. 

CM000020 

00829 

7182 

02 

C48H 

PICTURE 

X  1 3  )  » 

CM000020 

03830 

7103 

C  2 

FILLER 

PICTURE 

XXX  VALUE  SPACE. 

CMOC0020 

C0831 

7184 

02 

C4CH 

PICTURE 

X, 

CM000020 

30832 

719 

C2 

FILLER 

PICTURE 

XI 3)  VALUE  SPACE. 

CM0O0C20 

03833 

** 

20 

02 

C5H 

PICTURE 

XI 9) . 

CM000020 

30B34 

21 

02 

FILLFR 

PICTURE 

XI 3)  VALUE  SPACE. 

CM000020 

00835 

722 

02 

C6H 

PICTURE 

XI9). 

CM000020 

00836 

723 

02 

FILLFR 

PICTURE 

XXX  VALUE  SPACE. 

CM000020 

30837 

7231 

02 

C7AH 

PICTURE 

X 1 6  )  . 

CM000020 

30838 

7232 

02 

c  ILLER 

PICTURE 

X  VALUE  SPACE. 

CM000020 

00839 

7233 

02 

C7BH 

PICTURE 

X. 

CM000020 

0084  C 

** 

25 

02 

FILLER 

PICTURE 

X 1 3 )  VALUE  SPACE. 

CM000020 

00841 

** 

01 

02 

C8H 

PICTURE 

X I  4)  • 

CMD00020 

00842 

02 

C2 

FILLER 

PICTURE 

X 13 »  VALUE  SPACE. 

CM000020 

00843 

703 

02 

C98H 

PICTURE 

X. 

CM000020 

00844 

** 

04 

32 

FILLER 

PICTURE 

XX  VALUE  SPACE. 

CM000020 

00345 

735 

02 

C10AH 

PICTURE 

X  1 9  )  , 

0G84S 

7051 

02 

FILLER 

PICTURE 

X  VALUE  SPACE. 

CMC00020 

30847 

706 

C  2 

FILLER 

PICTURE 

XI4)  VALUE  SPACE.  ■ 

CM000020 

0C848 

707 

02 

C  1 1  AH 

PICTURE 

XI 9 ) . 

00849 

7071 

02 

FILLER 

PICTURE 

X  VALUE  SPACE. 

CM000020 

00850 

7072 

02 

CllBH 

PICTURE 

X I  3 )  » 

CM000020 

00851 

708 

C  2 

FILLER 

PICTURE 

XI 5)  VALUE  SPACE. 

CM000020 

00852 

709 

02 

C  12H 

P  ICTURE 

X  1  6  }  • 

CM000020 
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00853 

710 

02  FILLER  PICTURE  XX  VALUE  SPACE. 

CH000020 

00854 

02  FILLER  PICTURE  X<8)  VALUE  SPACE. 

00855 

02501 

PROCEDURE  DIVISION. 

00856 

OPEN  1-0  B-FILE. 

00857 

REAO  B-FILE  AT  END  GO  TO  17-END. 

00858 

HOVE  Bll  TO  TSTCELL. 

00859 

_CLOSE  B-FILE. 

00860 

02502 

OPEN  INPUT  I-FILE. 

00861 

025030 

OPFN  OUTPUT  PRT-A  PRT-B. 

00862 

025040 

REAO  I-FILE  AT  END  GO  TO  I-ENO. 

00863 

HOVE  OPT-LISTC  TO  IFCLIST. 

00864 

025050 

IF  CK-OPTT  =  *0'  GO  TO  OPT-RERUN. 

00865 

025060 

GO  TO  NO-OPTN. 

00866 

025070 

OPT-RERUN. 

00867 

025080 

OPEN  INPUT  NPATCHI  NHOOKI. 

00868 

025090 

ORNL. 

00869 

025100 

REAO  NPATCHI  AT  END  GO  TO  ORAU. 

00870 

025110 

WRITE  PAT-PRT  FROH  NPATI . 

00871 

025120 

GO  TO  ORNL. 

00872 

025130 

ORAU. 

00873 

025140 

READ  NHOOKI  AT  ENO  GO  TO  ALLNHO. 

00874 

025150 

WRITE  HK-PRT  FROH  NOOKI. 

00875 

025160 

GO  TO  ORAU. 

00876 

025170 

ALLNHO. 

00877 

025180 

CLOSE  NPATCHI  NHOOKI. 

00878 

025190 

NO-OPTN. 

00879 

HOVE  OPT-CALOATE  TO  O-CALOATE. 

00880 

HOVE  *9999*  TO  H-STl  H-ST2  H-ST3  H— ST 4  H-ST5  H-ST6. 

00881 

02603 

A-OPEN. 

CHOOOOI9 

00882 

02604 

OPEN  INPUT  A-FILE. 

CHOOOOL9 

00883 

02605 

I— REAO. 

CH0000L9 

00884 

**  2606 

REAO  I-FILE  AT  ENO  GO  TO  I-ENO. 

00885 

026060 

IREOON. 

00886 

**  26061 

HOVE  112  TO  ITEH-NO. 

D0887 

02607 

A-READ. 

CH000019 

00888 

**  2608 

REAO  A-FILE  AT  ENO  GO  TO  A-ENO. 

00889 

26081 

A-ON.  HOVE  A-CARO  TO  A-TEHP. 

00890 

2609 

IF  A1  NOT  »  14  GO  TO  A— REAO. 

00891 

26091 

IF  A1BR  NOT  »  SPACE  GO  TO  CONT-ON. 

00892 

26092 

IF  THRU-SW  »  0  HOVE  1  TO  A1B. 

00893 

26093 

CONT-ON.  HOVE  A1B  TO  THRU-SW. 

00894 

26094 

HOVE  A-CARO  TO  ALN  < THRU-SW). 

00895 

2610 

HOVE  A1B  TO  P-CNT .  SUBTRACT  l  FROH  P-CNT. 

00896 

2611 

PERFORH  LINE-UP  THRU  LEX  UNTIL  P-CNT  <  l. 

00897 

26111 

GO  TO  C-SET-UP. 

CH000019 

00898 

2612 

LINE-UP. 

00899 

26121 

PERFORH  A— RE AO.  HOVE  A-CARD  TO  ALN  (P-CNT). 

00900 

26122 

SUBTRACT  1  FROH  P-CNT. 

00901 

2614 

LEX.  EXIT. 

00902 

2615 

C-SET-UP.  HOVE  A1B  TO  AL-SUB. 

00903 

26151 

CLOSE  A-FILE. 

CM000019 

00904 

**  26151 

HOVE  ZERO  TO  Z-TOT. 

00905 

2616 

PERFORH  CLEAHK  THRU  HKAEXIT  UNTIL  Z-TOT  >  5.  GO  TO  CLEAPAT. 

00906 

2617 

CLEAHK.  ADD  1  TO  Z-TOT.  HOVE  ZERO  TO  PI5  IZ-TOTI. 

00907 

26171 

HOVE  SPACE  TO  PI  IZ-TOTI  P2  (Z-T0T1  P 3  IZ-TOTI  P4  (Z-TOT) 

00908 

26172 

P5A  (Z-TOT)  P58  I Z-TOT)  P6  IZ-TOT)  P7  IZ-TOT) 

00909 

**  26172 

PB  l Z-TOT)  P9  I^-TOT) 
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00910  ’  261 73 _ P10  (2-TOT)  Pll  12-TOT)  P12  (Z-TOTI  P13  1Z-T0T1  P14  IZ-TOTI 

00911  26174  HOVE  ZERO  TO  P1A  IZ-TOTI. 

00912  2618  HKAEXIT.  EXIT. _ 


00913 

00914 


2619 

2620 


00915 

00916 

00917 

00918 


CLEAPAT.  MOVE  ZERO  TO  Z-TOT. 

P_ERFORN  BLE_AP  AT  THRU  PTREXA  UNTIL  Z-TOT  >  5.  GO  TO  XXA. 

2621  BLEAPAT.  AOO  1  TO  Z-TOT.  HOVE  ZERO  TO  QPRTO  (Z-TOTli 

26211 _  MOVE  ZERO  TO  QPRTB  IZ-TOTI.  _ 

2622  PTREXA.  EXIT. 

2623  XXA.  HOVE  ZERO  TO  Z-TOT. _ 


00919 

00920 


2624 

2625 


PERFORM  XXB  THRU  XXC  UNTIL  Z-TOT  >95.  GO  TO  C-OPEN. 
XXB .  ADD  1  TO  Z-TOT.  MOVE  ZERO  TO  APT5  IZ-TOTI. 


00921 

_00922 _  _ 

00923  **  26251 
00924 2626 


26252 

26253 


HOVE  SPACE  TO  APT1  IZ-TOTI  APT2  IZ-TOT)  APT3  (Z-TOTI 
APT 4  (Z-TOTI.  _ 


HDVE  ZERO  TO  APT 1A  IZ-TOTI. 
XXC.  EXIT. 


0092  5 

2701 

C-OPFN, 

» 

OPEN  1-0  C-FILE. 

00926 

027021 

IF 

A2 

= 

■TC/CA  ■ 

00927 

027022 

OR 

A2 

* 

•TC/CC  • 

0092  B 

027023 

OR 

A2 

S 

•TC/IC  • 

00929 

44027023 

OR 

A2 

X 

■EVENT-1' 

00930 

44027023 

OR 

A2 

= 

•  BRX  > 

00931 

♦*027023 

OR 

A2 

e 

•HIRE  ■ 

00932 

**027023 

DR 

A2 

= 

•CONTCLO' 

00933 

OR 

A2 

X 

■USER  * 

00934 

OR 

A  2 

X 

•TC/CHCN' 

00935 

**027023 

OR 

A2 

s 

■C-SHUNT* 

00936 

PR 

A2 

a 

■TUBE  ■ 

00937 

027024 

OR 

A2 

s 

■ V-LEAOS' 

0093B 

**  2702  5 

OR 

A2 

= 

•SV-LEAO*  ADO  1 

00939 

27026 

MOVE 

u 

TD  PI  (HK-SUB1 

00940 

27027 

HOVE 

13. 

TO  P2  IHK-SUBI 

1  TO  HK-SUB 


00941 

00942 


027027 

02702B 


PERFORM  TC-CHK 
CLOSE  C-FILE  HOVE 


1  TO  CF-SH  GO  TO  ASQ-LK. 


IF  15  =  SPACE  AND  16 
ELSE  GO  TO  C-READ. 


=  SPACE  NEXT  SENTENCE 


00943  *40270 1 1 
00944  027022 

00945“  027029  HOVE  0  TO  CF-SM. 

00946  *4  2702  C-READ.  REAP  C-FILE  AT  END  GO  TO  C-ENO. 
00947 

00948  27030 


IF  C9  NOT  -  '0»  GO  TO  C-REAO. 
IF  A2  NOT  -  C3  GO  TO  C-REAO. 


00949  27031 

0095_0 _ 027031 

00951  027032 

00952  *♦  27Q33 

00953  27034 

00954  27035 


IF  C5  NOT  =  SPACE  GO  TO  C-REAO. 
IF  .Cl 2  »  SPACE  GO  TO  C-READl. 

IF  C12C  <  O-CYR  GO  TO  C-REAO." 
IF  Cl 2C  >  O-CYR  _G0  _JO_C-_R E_A01. 
IF  C12A  <  O-CMO  GO  TO  C-REAO. 

IF  C12A  >  O-CMO  GO  TO  C-REA01. 


00955 
00956 
00957 
0095  B 
00959 


27036  IF  C12B  <  O-CDV  GO  TO  C-REAO. 

2 7037  C-READl . _ 

27038  IF  I6A  =  'R'  GO  TD  CBSGN. 

2704  _ [F  ISA  =  *  I  1  GO  TO  CCSGN.  IF  I6A  NOT 


SPACE  HOVE  111  TO  BEA 


MOVE  1  TO  CF-SW 


00960 

2705 

MOVE  11  TO 

BEB  PERFORM 

B-MRIT  CLOSE  C-FILE  GO  TD  R-EXT . 

00951 

2  706 

COSGN.  IF  15  = 

SPACE  GO  TO 

C-TABLE.  IF  15  NOT  «  C6  GO  TO  C-l 

00962  2707  _GD  TO  C-TABLE. 

00963  2708  CBSGN.  IF  C5  NOT  »' SPACE  GO  TO  C-REAO.  IF  15  =  SPACE  GO  TO  CBRGN. 

00964 _ 2709  _  IF  T6RB  NOT  =  C4A  OR  1 6RC  NOT  =  C4B  JR  I6RD  NOT  =  C4C  GO  TO 

00965  2710  "-'  ~ C-READ.  IF  15  NOT  =  C6  GO'  TO  C-REAO.  GO  TO  C-TABLE. 

00966  2711  CBRGN.  IF  I6R8  N3T  =  C 4 A  OR  I6RC  NOT  -  C4B  OR  I6R0  NOT  *  C4C  GO 


CN000019 

CH000019 


CH000019 
CH003019 
CHOOOO 19 
CM000019 
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2712  ■ 

2713 

2714 
27141 

2715 
027151 
027152 
027153 
027154 


**027154 

**027154 


TO  C-REAO.  GO  TO  C-TABLE.  _ 

CCSGN.  IF  I6B  MOT  =  C7A  GO  TO  C-REAO.  IF  C5  NOT  «  SPACE  MOVE 
II  TO  AEA  HOVE  C5  TO  AEB  PERFORM  A-WR1T  GO  TO  R-EXT. 

IF  1 6E  NOT  =  C7B  GO  TO  C-READ. 

GO  TO  C-TABLE.  _  _ _  _ 

TC-CHK . 

IF  A2  =  'TC/CC _ •_  MOVE  A2  TO  P4  IHK-SUBI._  _ 

IF  A2  *  ‘TC/IC  •  HOVE  A2  TO  P4  IHK-SUBJ. 

IF  A2  «  • TC/C  A  •  HOVE  A2  TO  P4  IHK-SUBJ. _ 


CH000019 


027155 
**  2716 
27161 
2717 
27171 
2720 


2721 

27211 

27212 

27213 

27214 
02301 


**  2310 
28102 

28104 

28105 

28106 

2311 
28111 

2312 
2813 
2314 

♦*  23C11 


23141 

2815 
73152 

**  28151 

28153 

28154 

2816 
02817 

**_  290 1 _ 

02910 
•*  2311 
29111 
29!  2 
29121 


IF  A2  =  * TC/CC  *  HOVE  A2  TO  P4  IHK-SUBI._  _ 

IF  A2  *  ‘TC/IC  •  HOVE  A2  TO  P4  IHK-SUBJ. 

IF  A2  «  •  TC/C  A  •  HOVE  A2  TO  P4  IHK-SUBI. _ _ 


2  =  ‘BRK  •  HOVE  A2  TO  P4  IHK-SUBJ. 

2  *  ‘WJRE  HOVE  A2  TO  P4  IHK-SUBI. _ _ 

2  =  ‘CONTCLO*  HOVE  A2  TO  P4  IHK-SUBJ. 

2  =  ‘C-SHUNJ •  HOVE  A2  TO  P4  IHK-SUBJ. _  _ 

2  =  ‘USER  •  HOVE  A2  TO  P4  IHK-SUBI. 

TC/CHCN *  HOVE  A2  TO  P4  IHK-SUBJ. _ 


IF  A2  =  ‘EVENT- 1  •  HOVE  ‘EVENT*  TO  P4  IHK-SUBJ. 

A-WR1T._  DISPLAY  ‘(-CARD  •  AEA. _ 

01  SPLAY  •  INSTR  ASSIGNED  TO  •  AEB. 

B-WRIT. _ 01  SPLAY_  ‘ERROR  AT  1  B_E_A; _ 

01  SPLAY  ‘ON  INPUT  •  BEB. 

C-WRIT.  0 1  SPLAY  ‘INST.  N/A  IN  •  CEA. 


01  SPLAY  •  AT  •  CEB. 

EJECT-A.  WRITE  HK-PRT  FROM  COUT-PRT  AFTER  CCC. 

WRITE  HK-PRT  FROM  DOUf-PRT  AFTER  CCD.  HOVE  3  TO  LN-CTR . 
A-FND.  HOVE  600  TO  BEA.  HOVE  II  TO_BFB.  PERFORM  B-WRIT. 

CLOSE  A-FILE.  GO  TO  R-EXT. 

C-TABLE. 


CNOT-U.  ADD  1  TO  HK-SUB. 

HOVE  A21  TO  P12  IHK-SUBI. 

HOVE  1  TO  P15  (HK-SUB I . 

HOVE  THRU-SW  TO  PI  A  IHK-SUBI 
“OVE  THRU-SW  TO  P16  (HK-SUB] 

HOVE  14  TO  Pll  IHK-SUBJ.  HOVE  III  TO  P13  IHK-SUBI.  _ 

HOVE  ITFM-NO  TO  P14  (HK-SUB). 

HOVE  II  TO  PI  IHK-SUBI.  HOVE  13  TO  P2  IHK-SUBI. 

HOVE  C7A  TO  P4  IHK-SUBI.  MOVE  Cl  TO  P3  IHK-SUBI. 

HOVE  C 8  TD  P 7  IHK-SUBI.  HOVE  »1  *  TO  C-SW. 

HOVE  TSTCELL  TO  Cl. 

MOVF  II  TO  C5.  REWRITE 


CLOSE  C-FILF. 

“OVE  1  TO  CF-SV 
GO  TO  ASO-LK. 

C-FND. 

OISPLAV  ■ A-FILF  ■  A-TFNP. 

_  01  SPLAY  ‘C-F  ILE‘  C-CARO. _ 

01  SPLAY  ' I-F1LE  '  l-CARO. 

CLOSF  C-FILE. 

“OVE  1  TO  CF-SW 
“OVE  20 1  TO  CEB. 

“OVE  II  TO  CFA.  PERFORM  C-WR1T.  GO  TO  1-7. 

ASQ-LK.  HOVE  ALN  I THRU-SW  I  TO  SQCK-LN . _ 

IF  SQUID-COUNT  NOT  =  0  GO  TO  1-7. 

SQ-CK. 

IF  A135A  »  ‘S'  ANO  A135B  NOT  =  SPACE  HOVE  A13RB  TO 
SQUIO-COUNT  MOVE  THRU-SW  TO  S-ST1  MOVE  1  TO  0-SW1  GO  TO  I7ZZ. 
IF  AI55A  =  ‘S'  ANO  A155B  NOT  =  SPACE  HOVE  A15RB  TD 
SQUID-CCUNT  MOVE  THRU-SW  TO  S-ST1  HOVE  1  TO  0-SW2  GO  TO  I7ZZ. 


CHOOOO 19 


CH003019 


CH00001 9 
CH000019 


CH000019 


CH000019 


C-H00001  9 
CM000019 

CM000019 
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01024 

2914 

IF  A185A  -  'S'  AND  A185B  NOT  -  SPACE  MOVE  A18RB  TO 

CM000019 

0102S 

29141 

SQUID-COUNT  MOVE  THRU-SH  TO  S-ST1  HOVE  1  TO  0-SH4  GO 

TO  I7ZZ. 

01026 

29142 

GO  TO  1-7. 

01027 

29143 

I7ZZ.  SUBTRACT  1  FROM  SOUlO-COUNT. 

01028 

030010 

1-7. 

CM000019 

01029 

030020 

MOVE  0  TO  PB-SW1,  PB-SW2,  STA-SW. 

CM000019 

01030 

MOVE  A21  TO  P 12  (HK-SUB). 

01031 

MOVE  14  TO  Pll  (HK-SUB). 

“ 

01032 

MOVE  Ill  TO  P 1 3  ( HK-SUB 1. 

01033 

MOVE  ITEM-NO  TO  P14  (HK-SUB). 

01034 

MOVE  1  TO  PIS  (HK-SUB) 

0103S 

030021 

MOVE  THRU-SW  TO  PI  6  (HK-SUB)  PI  A  (HK-SUB) 

01036 

030022 

MOVE  11  TO  PI  (HK-SUB). 

01C37 

030030 

IF  17  =  SPACE 

CM000019 

01038 

03004C 

IF  A12  =  SPACE 

CM000019 

01039 

030050 

IF  A4A  NOT  =  *CB'  GO  TO  CHOSW 

0104C 

03007C 

ELSE  GO  TO  I 7 J A 

CM000019 

01041 

030080 

ELSE  GO  TO  I7KA. 

CM000019 

01042 

030090 

IF  I7C  =  SPACE 

CM000019 

01043 

0301C0 

IF  A12B  =■  SPACE 

CM000019 

01044 

030110 

IF  A4B  -  SPACE 

CM000019 

01045 

030120 

MOVE  I7A  TO  ST-1 

CM003019 

01046 

030130 

GO  TO  B7-0PEN 

CM000C19 

01047 

033140 

ELSE  MOVE  I7AR  TO  ST-1 

CM000019 

01C48 

030150 

MOVE  A 48  TO  ST- 3 

CM000019 

01049 

030160 

ALTER  I7AA  TO  PROCEED  TO  I7CA 

CM000019 

01053 

**  3017 

MOVE  2  TO  FLIP-SW 

01051 

030180 

GO  TO  B7-0PFN 

CM000019 

01052 

030190 

ELSE  MOVE  I7AR  TO  ST-1 

CM000019 

01053 

030200 

MOVE  A12B  TO  ST-3 

CM000019 

01054 

030210 

ALTER  I7AA  TO  PROCEED  TO  I7CA 

CM000019 

OIOSS  030220  MOVE  3  TO  FLIP-SW  CM000019 

010S6  030230 _ Gfl  TO  B7-0PEN. _ CM000019 


01057 

030240 

IF  170  *  SPACE 

CM000019 

01058 

**  30250 

IF  A12BR  =  SPACE 

01059 

3101 

IF  A4BR  »  SPACE 

01060 

G31020 

MOVE  I7AR  TO  ST-1 

CM000019 

01061 

031030 

MOVE  I7C  TO  ST-5 

CM000019 

91062 

**  31031 

MOVE  2  TO  FLIP-SW 

91063 

031040 

ALTER  I7AA  TO  PROCEED 

TO 

1 7F  A 

CM000019 

01064 

031050 

GO  TO  B7-0PEN 

CMOOOO 19 

01065 

031060 

ELSE  MOVE  I7AR  TO  ST-1 

CM00001 9 

01066 

031070 

MOVE  I7C  TO  ST-5 

CMOOOO 19 

01067 

**  3108 

MOVE  A4BR  TO  ST-6 

01068 

031090 

ALTER  I 7AA  TO  PROCEED 

TO 

I  7EA 

CM00001 9 

01069 

031100 

MOVE  2  TO  FLIP-SW 

CMOOOO 19 

01070 

031110 

GO  TO  B7-0PEN 

CM000C19 

01071 

031120 

ELSE  MOVE  I7AR  TO  ST-1 

CM000019 

01072 

031130 

MOVE  17C  TO  ST-5 

CM000019 

01073 

**  3114 

MOVE  A12BR  TO  ST-6 

01074 

031150 

MOVE  2  TO  FLIP-SW 

CM000019 

01075 

031160 

ALTER  I7AA  TO  PROCEED 

TO 

I  TEA 

CMOOOO  19 

01076 

031170 

GO  TO  B7-0PEN • 

CM000019 

31077 

031180 

IF  I7E  =  SPACE 

CM000019 

01078 

031190 

MOVE  I 7 AR  TO  ST-1 

CM000019 

01079 

031200 

MOVE  I7BR  TO  ST-3 

CMOOOO 19 

01080 

031210 

ALTER  17AA  TO  PROCEED 

TO 

1 7CA 

CM000019 
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oioai 

031220 

MOVE  3  TO  FL1P-SW 

CM000019 

01082 

031230 

GO  TO  B7-0PEN. 

CM000019 

01083 

031240 

MOVE  17  TO  ST-7 

CM000019 

01084 

031250 

ALTER  17AA  TO  PROCEEO 

TO  17GA 

CM000019 

0 1085 

032010 

MOVE  2  TO  FL1P-SW 

CM000019 

01086 

032020 

GO  TO  B7-0PEN. 

CMOOOO 19 

01087 

032021 

CHOSH. 

01088 

032022 

IF  0-SW1  =  1  OR  0-SW2  =  1 

OR  0-SW4  =*  1 

01C89 

032023 

IF  SQU1 0— COUNT  *  0  MOVE  1 

TO  I 7— SWT 

01090 

032024 

ELSE  GO  TO  I-B 

*> 

01091 

**032  0  23 

ELSE  MOVE  1  TO  I7-SWT  GO 

TO  1-8. 

01092 

**  32024 

GO  TO  1-8. 

01093 

032030 

J7JA. 

CM000019 

01094 

032040 

IF  A4B  a  SPACE 

CMOOOO 19 

01095 

032050 

MOVE  A4A  TO  ST-1  MOVE 

2  TO  FLIP-SW 

CM000019 

01096 

032060 

GO  TO  B 7-OPEN. 

CM000019 

01097 

032070 

MOVE  A4  TO  ST-2  MOVE 

2  TO  FLIP-SH 

CM000019 

01098 

032080 

ALTER  I 7AA  TO  PROCEEO  TO 

17BA 

CM000019 

01099 

032090 

GO  TO  B7-0PEN. 

CM000019 

01130 

032100 

17KA. 

CM000019 

01101 

032110 

IF  A12B  =  SPACE 

CMOOOO 19 

01102 

032120 

MOVE  A12A  TO  ST-1 

CM00001 9 

01103 

032130 

MOVE  2  TO  FL1P-SW 

CM 000019 

01104 

032140 

GO  TO  B 7-OPEN. 

CM000019 

01105 

032150 

MOVE  A12  TO  ST-2 

CM000019 

01106 

032160 

ALTER  I7AA  TO  PROCEEO  TO 

17BA 

CMOOOO 19 

01107 

032170 

MOVE  1  TO  FLIP— SW 

CM000019 

01108 

032180 

GO  TO  B7-0PEN. 

CM000019 

01109 

032190 

17GA. 

CM000019 

OHIO 

032200 

IF  ST-7  *  B3 

CM000019 

01111 

032220 

GO  TO  BTAB-LK. 

CM000019 

01112 

032230 

GO  TO  B7-RD. 

CM000019 

01113 

032240 

I7F  A. 

CM000019 

01114 

032250 

IF  ST-1  =  B5A 

CM00001 9 

01115 

IF  ST-5  -  B5BRR 

CM00001 9 

01116 

033030 

GO  TO  BTAB-LK. 

CM00001 9 

01117 

033040 

GO  TO  B7-R0. 

CMOOOO 19 

01 1 1 B 

033050 

I7EA. 

CM000019 

01119 

033060 

IF  ST-1  «  B5A 

CM000019 

01120 

033070 

IF  ST-5  =  B5BRR 

CM000019 

01121 

033080 

IF  ST-6  »  B5CRR 

CM000019 

01122 

033100 

GO  TO  BTAB-LK. 

CMOOOO 19 

01123 

033110 

GO  TO  B7-R0. 

CM000019 

01124 

033120 

170A. 

CM000019 

01125 

033130 

IF  ST-1  ■  B3RA 

CM000019 

01126 

033140 

IF  ST-3  =  B3RB 

CM000019 

01127 

033160 

GO  TO  BTAB-LK r 

CM000019 

01128 

033170 

GO  TQ  B7-R0. 

\ 

CM000019 

01129 

033180 

I7CA. 

CM000019 

01130 

033190 

IF  ST-1  =  B5A 

CM000019 

01131 

033200 

IF  ST-3  =  B5B 

CM000019 

01132 

033220 

GO  TO  BTAB-LK. 

CM000019 

01133 

033230 

GO  TO  B7-R0. 

CM000019 

01134 

033240 

I7BA. 

CM000019 

01135 

033250 

IF  ST-2  =  B5 

CM000019 

01136 

034020 

GO  TO  BTAB-LK. 

CM000019 

01137 

034030 

GO  TO  B7-R0. 

CMOOOO  19. 
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01138 

034040 

B7— OPEN • 

CM000019 

01139 

**  3405 

OPEN  1-0  B-FILE. 

01140 

034060 

B7-R0. 

CM000019 

01141 

034070 

RFAO  B-FILE  AT  ENO  GO  TO  17-END. 

CM000019 

01142 

**  34071 

IF  BIO  NOT  =  SPACE  GO  TO  B7-R0. 

01143 

0340B0 

17AA. 

CM000019 

01144 

034090 

GO  TO  17HA. 

CM000019 

01  145 

034100 

17HA. 

CM000019 

01146 

034110 

IF  ST-1  =  B5A 

CM000019 

01147 

034130 

GO  TO  BTA8-LK. 

CM000019 

0U4B 

034140 

GO  TO'  B7-R0. 

CM000019 

01149 

034150 

btab-lk. 

CM000019 

01150 

034160 

PERFORM  B-TABLE. 

CM000019 

01151 

034170 

CHK-l 789 . 

CM000019 

01152 

034180 

IF  STA-SW  =  1  GO  TO  PB-SET. 

CM000019 

01153 

034190 

IF  STA-SW  =  2  GO  TO  EPB-SET. 

CM000019 

01154 

034200 

IF  STA-SW  =  3  GO  TO  KPB-SET. 

CM000019 

01155 

034210 

IF  B6B  =  * PB1 •  OR  B6B  -  • PB2 • 

CM00001 9 

01156 

034220 

MOVE  B6B  TO  B-ST 

CM000019 

01157 

034230 

MOVE  1  TO  PB-SW1. 

CM030019 

01158 

034240 

IF  B3B  =  *PB1«  OR  B8B  =  •PB2* 

CM000019 

01  159 

034250 

MOVE  B8B  TO  B-ST 

CM000019 

01160 

035010 

MOVE  1  TO  PB-SN2. 

01161 

035020 

IF  PB-SN1  =  1 

CM000019 

01162 

0350  40 

MOVE  71  TO  CEB  HOVE  11  TO  CEA  PERFORM  C-WRIT  GO  TO  87-RO. 

CMOOOOl 9 

01163 

035OB0 

IF  PB-SW2  NOT  =  1  GO  TO  HK-1789. 

01164 

035090 

AOD  1  TO  APT-SUB 

CM000C19 

01155 

035100 

MOVE  B-ST  TO  APT2  1APT-SUBI 

CM003019 

01166 

035110 

MOVE  B9  TO  APT3  UPT-SUB1 

CM000019 

01167 

035120 

perform  pat-m. 

CMOOOOl 9 

01168 

•*035013 

IF  THRU-SH  NOT  -  S-ST1  GO  TO  HK-I7B9. 

01159 

**  35014 

IF  0-SH1  =*  1 

01170 

035015 

HOVE  B-ST  TO  S-ST2  MOVE  2  TO  APT5  CAPT-SUBI. 

01171 

035016 

HK-I7B9. 

01172 

035017 

IF  B3RRB  =  'O'  OR  '1»  OR  '2'  OR  '31  OR  *4*  OR  'S'  OR  • 6' 

01173 

0350  IB 

OR  '7*  OR  '8*  OR  '9*  GO  TO  PAHK-I789. 

01174 

035019 

IF  H-SH1  =  0  MOVE  1  TO  M-SM1  MOVE  B3  TO  M-1ST. 

01175 

035020 

PAHK-I7B9. 

01176 

**  3513 

IF  B5A  NOT  »  'CB'  MOVE  B3  TO  P6  IHK-SUBI. 

CM000019 

■mu 

035140 

HOVE  B6  TO  P5A  (HX-SUBI 

CMOOOOl 9 

01178 

035150 

HOVE  87  TO  P5B  (HK-SUB1 

CM000019 

01179 

**035060 

IF  BSW-1  =  I  PERFORM  B-UPOATE 

CM000C19 

01180 

03507 

ELSE  GO  TO  B7-R0. 

01181 

035160 

CLOSE  B-FILE 

CM000019 

011B2 

035170 

GO  TO  1-8. 

CM000019 

011B3 

035180 

SQU 10— ROUTINE. 

CM000019 

01184 

035190 

AOO  I  TO  SQ-SUB. 

CM000019 

01185 

035200 

MOVE  'SQUID'  TO  OPRTC  ( SQ-SUB > . 

CM000019 

011B6 

035210 

MOVE  THRU-SH  TO  CPRTB  1S0-SUBI. 

CM000019 

011B7 

035220 

MOVE  1  TO  QPRTD  (SO-SUBJ. 

CM000019 

01188 

035221 

MOVE  ITEH-NO  TO  QPRTA  ISO-SUBI. 

01189 

035230 

PAT-M. 

CM000019 

01190 

035240 

MOVE  ITEM-NO  TO  APT1  (APT-SUB! 

CM000019 

01191 

035250 

MOVE  THRU-SH  TO  APT  1 A  (APT-SUB! 

CM000019 

01192 

35A010 

MOVE  1  TO  APT5  1  APT-SUB!. 

CM000019 

01193 

35A020 

8-UPDATE. 

CH000019 

01194 

IF  B1  =  SPACE  MOVE  'XXXX'  TO  Bl. 

123 


AEDC-TR-71-109 


22 


01195  _  35AOBO  .  MOVE  11  TO  810. _ REWRITE  B-CARO. 

01196  35A080  BT-UPOATE. 

01197 _ IF  BT1  »  SPACE  MOVE  'XXXX'  TO  BT1. 


01198 
_0 119.9 
01200 
01201 


35A090 
.  35A091 
3 5 AO 92 
35A093 


01202  35A094 


CLOSE  B-F1LE.  OPEN  1-0  B-FILE. 

_ PERFORM  BT-UPOATT  THRU  BT-tIPOATTT . _ 

bt-upoaFt. 

REAP  B-F1LF.  AT  ENO  GO  TO  BT-UPOATTT . _ 

IF  BT1  =  B 1  IF  BTi  =  B2  MOVE  II  TO  BIO 


REWRITE  B-CARO 


01204 

35A095 

GO  TO  BT-UPOATT. 

01205 

35A096 

BT-UPOATTT.  EXIT. 

01206 

01207 

**  3601 
3602 

1 7- ENO.  CLOSE  B-FILE. 

IF  FLIP-SW  =■  1  GO  TO  1-8. 

01208 

36021 

IF  FLIP-SW  =  2  01  SPLAY  *A-FILE  •  A-TEMP 

01209 

36022 

DISPLAY  * I-FILE  1  I-CARO 

01210 

36023 

01  SPLAY  *1-7  NOT  =  B3*  GO  TO  1-8. 

01211 

3604 

IF  FLIP-SW  =  3  ALTER  I 7AA  TO  PROCEEO 

TO 

1 70A 

HOVE  2  TO 

01212 

01213 

3605 

3606 

FLIP-SW  GO  TO  B7-0PEN • 

IF  FLIP-SW  =  10  GO  TO  I-8B. 

01214 

3  607 

IF  FLIP-SW  =  12  GO  TO  I-BC . 

01215 

3608 

IF  FLIP-SW  =  13  GO  TO  1-9. 

01216 

3609 

IF  FLIP-SW  -  14  GO  TO  1-10. 

01217 

3610 

IF  FLIP-SW  «  15  GO  TO  I10BB. 

01218 

01219 

3611 

3612 

IF  FLIP-SW  »  16  GO  TO  STA-CK. 

IF  FLIP-SW  -  17  GO  TO  UOBA. 

01220 

3613 

IF  FLIP-SW  =  18  GO  TO  STA-CK. 

01221 

3614 

IF  FLIP-SW  =  19  GO  TO  19AC. 

01222 

3615 

IF  FLIP-SW  »  20  GO  TO  I9FC. 

01223 

3616 

IF  FLIP-SW  «  28  ALTER  I7AA  TO  PROCEEO 

TO 

1 70A 

MOVE  27  TO 

01224 

01225 

3617 

FLIP-SW  GO  TO  B 7-OPEN. 

IF  FLIP-SW  -  27 

01226 

01227 

01  SPLAY  *A-FILE  *  A-TEMP 

01  SPLAY  'I-FILE  •  I-CARO 

01228 

01  SPLAY  *1-10  NOT  EQUAL  A-20* 

01229 

GO  TO  STA-CK. 

01230 

IF  FLIP-SW  »  37 

01231 

DISPLAY  'A-FILE  «  A-TEMP 

01232 

OISPLAY  *  I-FILE  *  I-CARO 

01233 

DISPLAY  *1-8  NOT  *  A14' 

01234 

GO  TO  1-9. 

01235 

3620 

IF  FLIP-SW  =»  38  ALTER  I7AA  TO  PROCFEO 

TO 

I70A 

MOVE  37  TO 

01236 

3621 

FLIP-SW  GO  TO  B7-0PEN . 

01237 

IF  FLIP-SW  =  47 

01238 

"OISPLAY — LA-E.I.LE  '  A-TEMP 

01239 

OISPLAY  • I-FILE  '  I-CARO 

01240 

01241 


01242 

J31243 

01244 

-012AJL 


3623 

_3624_ 

036250 

038010 


01  SPLAY  *1-9  NOT  =  A17* 
GO  TO  I_- 10_._ 

IF  FLIP-SW 
FLIP-SW  GO  TO 


4B  ALTER  17AA  TO  PROCEEO  TO  I70A  MOVE  47  TO 

_  B7-0PEN.  _ _ _ 

IF  FLIP-SW  =  77  DISPLAY  *36250 


I -CARO  GO  TO  CHK-I789. 


1-8. 


01246 

01247 

01248 

01249_ 

01250 

01251 


MOVE  A21  TO  P 12  (HK-SUB). 
HOVE  14  TO  Pll  1  HK-SUB ) . 


038020 

038030 


MOVE  Ill  TO  P  1 3  I  HR- SUB)  • 

HOVE  ITEM-NO  TO  Pl»  (HK-SUB).  _  _ 

MOVE  1  TO  STA-SW.  ALTER  I7AA  TO  PROCEEO  TO  I7HA.‘ 

IF  18  =  SPACE  GO  TO  A-14.  IF  I 8C  =  SPACE  GO  TO  I8KA. 


'CM0660'i9 


CM000019 


CM000019 

CH000019 
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23 


01252  93B04C  IF  180  =  SPACE  GO  TO  I8KB.  IF  I  BE  =  SPACE  GO  TO  IBKC^ 

01253  **  38041  HOVE  37  TO  FLIP-SW. . 

01254  03B05S  HOVE  18  TO  ST- 7.  ALTER  I7AA  TO  PROCEED  TO  I76A. _ 


CH000019 


CH000019 


GO  TO  B7-0PEH.  CH000019 

.  IF  A14  =  SPACE  GO  TO  1-9.  _ CM000019_ 

IF  AL4B  =  SPACE  GO  TO  IBKO.  HOVE  A14  TO  ST-2.  . CH000019 

ALTER  1 7AA  TO  PROCEED  TO.  I7BA._  HOVE  37  TO  FLIP-SW.  _ _ CHQ00019 

GO  TO  B 7-OPEN ■  . "  "  ""  CH000019 

■  HOVE  A14A  TO  ST-1.  HOVE  37  TO  FLIP-SW.  GO  TO  B7-0PEN.  -  CH000019 


01255 

03B063 

1 

91256 

03B070 

A-14 

91257 

03B080 

01258 

338090 

01259 

038  ICO 

t 

01260 

C38110 

I8K0 

CH000019 
CH00001 9 
CHO'OO'Oi'9 
CHO 00019 


01261  03 SI 2  0  IRKA.  IF  A14B  =  SPACE  GO  TO  I8KE. 

01262  338133  HOVE  I3AR  TO  ST-1.  HOVE  A14B  TO  ST-3.  ALTER  17AA  TO 

01263  03B14C  ‘  PROCEED  TO  I7CA.  HOVE  37' Tn  FLIP-SW.  GO  TO  B7-0PEN T 

01264  038153  1 BKE .  HOVE  18A  TO  ST-1.  HOVE  37  TO  FLIP-SW.  GO  TO  B7jiOPEN. 

01265  **  3816  IBKB.  IFA148R  =  SPACE  GO  TO  I8KF. 

01266  3817 _ HOVE  ISAR  TO  ST-1.  HOVE  I8C  TO  ST-5. _ 

01267  38171  HOVE  A14BR  TO  ST-6. 

0126B  381 B  -  HOVE  37  TO  FL I P-SW_.  ALTER  17AA  TO  PROCEED  TO  I7EA. 

01269  381B1  "  GO  TO  87-OPEN.  "  . 

01270  03B193  I8KF.  HOVE.  I8AR  TO  ST-1.  HOVE  I8C  TO  ST-5.  ALTER  I7AA  TO  PROCEE0_CM000019_ 

01271  **  3823  TO  I7FA  MOVE  37  TO  FLIP-SW  GO~TO "  87-OPEN. 

01272  03B210  I8KC.  HOVE  1BAR  TO  ST-1.  HOVE  I BBR  TO  ST-3^  ALTER.  I7AA  TO  CH000019^ 


01273 

01274 

038220 

038239 

PROCEED  TO  I7CA.  HOVE  3B  TO  FLIP-SW. 

Gn  TO  B7-0PEN. 

CM00001 9 

01275 

01276 

039PIC 

039020 

PB-SET.  IF  BSW-1  NOT  =  1  GO  TO  B7-RD. 

IF  PB-SW2  *  1  GO  TO  APB-SET. 

CH000019 

CH000019 

01277 

01Z7B 

039030 
**  3904 

IF  0-SW1  =  1  GO  TO  S-SET. 

S2-SET.  IF  B8B  -  ‘PBl*  GO  TO  I8ZV. 

CH000019 
CH00001 9 

01279 
012  BO 
01281 
0 1282. 
01283 
01284 


39041 

39042 
03  9050 
039060 
039070 
039083 


IF  B8B  NOT  «  * PB2*  GO  TO  I-BE. 


1 8Z  V . 


HOVE  1  TO  PB-SW2.  HOVE  88B  TO  B-ST.  AOO  l  TO  APT-SUB. 
PERF3RH  PAT-H.  MOVE  B9  TO  APT3  (APT-SUB! . 

HOVE  88  TO  APT2  I APT-SUB)  .  HOVE  B3"  TO  PB  IHK-SUBI.  " 

GO  TO  I-8E . _ 


CH000019 

CH000019 

CM000'019  " 

CMO0OO19 

CH000019 

CH000019 


01285  039093  APB-SET.  GO  TO  8PB-SET .  CH000019 

01236  C39133  BPB-SET .  IF  B6B  SOT  =  B-ST  HOVE  12  TO  FLIP-SW  GO  TO  B7-R0.  CH030019 

31287  039110  SI-SET.  IF  n-SWl  =  1  GO  TO  VbTA.  HOVE  B7  TO  APT4  (APT-SUB! .  CHOOOOi'9" 

012B8  0391ZC  GO  TO  I8TB.  _  _  CH000019 

01289  C39133  I BTA.  IF  THRU-SW  *=  S-ST1  HOVE  B-ST  TO  S-ST 2  HOVE  2  TO  CM000019 

01290  C39140  APTS  (APT-SUB).  * _ CH000019 

01291  **  3915  IF  A13A  NOT  =  SPACE  OR  A13B  *  SPACE  HOVE  B7  TO 

01292  39151  APT4  (APT-SUB! 

01293  39152  HOVE  B6  TO  APT 2  (APT-SUB) 

01294  019160  GO  TO  IBTB .  _  _  _  _ 

01295  039170  PERFORH  SQUID-ROUTINE.  HOVE  B7  TO  QPRTE  ISQ-SUBl. 

01296  0391B0  HOVE  1  TO  SCA-SW.  HOVE  B6  TO  QPRTF  (SQ-SUB). _ 


31297 

039190 

0129B 

**  39191 

01299 

G39230 

01330 

039210 

01301 

*+  3922 

01302 

3923 

01303 

39231 

01304 

3924 

01305 

3925 

01306 

3926 

01307 

3927 

013CB 

392B 

CH00001 9 
CH000019 
CH000019 


IBTB.  IF  BRB  =  'PBl1  OR  B8B  =  *PB2'  AOO  1  TO  APT-SUB 
HOVE  1  TO  P15  (HK-SUB)  _ 

PERFORH  PAT-H  HOVE  BB_TO  APT2  (APT-SUB)  HOVE'  B9  TO"  ' 

APT3  (APT-SUB  I  HOVE . 1 _ TO  PB-SW2  MOVE  B8B  TO  B-ST. 

I-BE.'  HOVE  B3  TO  P8~  (HK-SUB)  MOVE  1"'"to”P15  (HK-SUB)'.  ' 

IF  B3RRB  =  '0*  OR  '1'  OR  »2’  OR  *3'  OR  '41  OR  »5»  OR 


CH000019 

CM000019 

CH000019 

CH000019 

CH000019 


■9'  GO  TO  MI-BE. 


OR  '7'  OR  '8*  OR 

IF  M-SW2  =  0  _ 

HOVE  i  TO  M-SWZ 
HOVE  B3_T0  H-2ST 
GO'  TO  "HI -BE.' 

IF  B3RRA  =  H-STZ  GO  TO  HI-8E. 


CM000019 

CH000019 

-■C'M'OOO'C'1'9 

CH000019 
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01312 

J)131JL 

01314 

01315 

01316 

01317 


01318 

01319 

01320 

_0l32l_ 

31322 


01324 

01325 

01326 

01327 


01328 

01329 


01330 

01331 


01332 

31333 

01334 

01335 


01340 

01341 


01342 

01343 

01344 

31345 

31346 

31347 


01348 

01349 


01350 

01351 


01352 

01353 


01354 

01355 

01356 

01357 


01358 

01359 


01363 

01361 

0i362 

01363 


_3929 
3930 
400 


040020 

_ 040033 

040040 

_ 040050 

040060 
040070 


**  403BO 
040090 
040100 

: _ 040110. 

040120 
04 


040140 
»>  4015 
040160 
**  4017 


40  IB 
040190 


**  4023 
040210 


406010 
40A020 
'  40A030 
40A040 


40A050 

40A060 

40A061 

40A070 


40A080 

40A090 


40A100 
40A110 
40A120 
•*  40A13 
40 A 140 
40A150 


40A163 

40A170 


40A171 

40A172 


**40A172 
40A173 


40 A 174 

_ 40A175 

40A176 

40A177 


40A17B 
40A179 


40A1BI 

40A190 

40A191 

40A200 


_ MOVE  B3  TO  M-3ST.  _ _ _ 

MI-BE. 

PERFORM  B-UPOATE  CLOSE  B-FtLE  GO  TO  1-9. _ 


I-8C.  IF  B-ST  =  '  PB 1 1  MOVE  ‘PB21  TO  R-ST  60  TO  I8TC. 

IF  8-ST  =  *PB2*  HOVE  'PB1  *  TO  R-ST. _ _ _ _ 

I8TC.  ALTER  APB-SET  TO  PROCEED  TO  0P8-SET. 

_  MOVE  13  TO  FLIP-SW.  GO  TO  BT-OPEN. _ _ _ 

0P9-SET. 


IF  B6B  NOT  »  R-ST  GO  TO  B7-R0.  MOVE  B-CARO  TO  B-TEMP 


CLOSE  B-FILE.  OPEN  1-0  B-FILE.  MOVE  13  TO  FLIP-SW. 

BJ-REAO.  REAP  B-FILE  AT  END  GO  TO  I8-EN0.--  _  _  _ 

IF  B5  NOT  »  ' [ NTR •  GO  TO  BJ-REAO. 

_ IF  BIO  NOT  =  SPACE  GO  TO  BJ-REAO. _  _ _  _ 

PERFORM  B-TABLE.  IF  BSW-1  =  1  GO  TO  IB-J.  GO  TO  BJ-REAO. 

1 8-END.  CLOSE  B-FILE.  MOVE  801  TO  CEB  MOVE  II  TO  CEA  _ 


PERFORM  C-WRIT  GO  TO  1-9. 

S-SET.  IF  THRU-SW  >  S-ST1  GO  TO  S2-SET . _  _  _ 

IF  SQUID-COUNT  *  0  GO  TO  S2-SET • 

GJMP.  GO  TO  IJMP. 


I JMP.  IF  86B  =  S-ST2  GO  TO  SI-SET.  MOVE  10  TD  FLIP-SM. 
GO  TO  BT-RO.  _ 


I-8B.  ALTER  GJMP  TO  PROCEED  TO  HJMP  MOVE  13  TO  FLIP-SH. 
GO  TO  BT-OPEN. 


IB-J.  IF  868  NOT  =  B-ST  GO  TO  1BT0. 

S3-SET .  TF  0-SW1  NOT  ■  1  GO  TO  1BTE .  _ _ _ 

IF  THRU-SM  »  S-ST1  MOVE  B-ST  TO  S-ST2  MOVE  2  TO 
PT5  1  APT-SUB >. 


IF  A 13A  NOT  =  SPACE  GO  TO  I8TE. 

_ IF  A13B  -  SPACE  GO  TO  I8TE.  PERFORM  SOUIO-ROUTINE. 

MOVE  B6  TO  QPRTF  ISQ-SUB) 

MOVE  B7  TO  QPRT6  ISQ-SUB)  MOVE  1  TO  SCA-SW  GO  TO  IBTF. 


I 8TE.  MOVE  B7  TO  APT 4  IAPT-SUB). 

18TF.  ADD  1  TO  APT-SUB.  PERFORM  PAT-N.  MOVE  BB  TO  APT2  IAPT-SUBI 


MOVE  B9  TO  APT3  IAPT-SUBI.  MOVE  BBB  TO  B-ST. 

IBTG.  PERFORM  B-UPOATE.  _  J _  _  _ 

I F  BT6B  NOT  -  8-ST  MOVE  B02  TO  CEB  MOVE  1 1  TO  CEA  PERFORM 

C-WRIT  GO  TO  IBTH. _  _  _  _ _ 

MOVE  8T7  TO  APT4  IAPT-SUBI. 

IF  BT8B  »  'PBl'  OR  BT88  *  'P82'  ADD  1  TO  APT-SUB  MOVE  BTB 


TO  APT2  IAPT-SUBI  PERFORM  PAT-M  MOVE  BT9  TO  APT 3  IAPT-SUBI 
MOVE  1  TO  PB-SM2  MOVE  BTBB  TO  B-ST. 


I8TH. 

IF  B3TRRB  »  '0*  OR  •!'  OR  '2*  OR  *3»  OR  *4*  OR  '5'  OR  '6' 


OR  *7'  OR  *8*  OR  «9'  GO  TO  MI8TH. 

_ IF  H-SH2  -  0  MOVE  1  TO  M-SW2  _  _ 


MOVE  BT3  TO  M-2ST 

GO  TO  HI8TH. _ _ _ _ 

IF  83TRRA  =  M-ST2  GO  TO  NI8TH. 

HOVE  BT3  TO  N-3ST. 


MIBTH. 

ERFORH  BT-UPDATE  HOVE  BT3  TO  P8  IHK-SUB) CLOSE  B-FILE . 


GO  TO  1-9. 

1BT0.  IF  BBB  NOT  =  B-ST  GO  TO  BJ-READ.  _  _ 

S4-SET . 

IF  O-SWl  NOT  -  1  GO  TO  I8TI. 


CM000019 

CH000019 


CM0000L9 
CH000019 
CM000019 
CH000019 
CMOOOO 19 
CM000019 


CMOOOO 19 
CM003019 
CH000019 
CMOOOC 19 
CM000019 


CM000019 


CM003019 


CM000019 


CMOOOOl9_ 
CMOOOO I 9 
CMOOOO 19 


CM000019 
CMOOOO 19 

CH000019 


CM000019 

CM000019 


CM000019 
CM000019 
CMOOOO 19 

CMOOOO 19 
CMOOOO 19 


CM000019 

CM000019 


CM000019 


CMOOOO  19 
CM000019 


CMO 00019 
CM000019 


CM000019 

CM000019 
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01366  40A230 


01367 

0136B 


40A240 

40A250 


IF  A 13A  NOT  =  SPACE  OR  A13B  =  SPACE  GO  TO  1BT1.  CH000019 

PERFORM  SOUIO-ROUTINE.  MOVE  B9  TO  QPRTE  ISQ-SUBI  MOVE  1  TO  CM000019 
SCA-SW  HOVE  BB  TO  QPRTF  ISQ-SUBI. _ 


01369  40A251  ,  GO  TO  18TJ. 

_01370_  408010  1 BT 1 »  HOVE  B9  TO  APT4  1  APT-SUB >. _ CM000019 

01371  40S020  IBTJ.  AOO  1  TO'  APT- SUB'.  PERFORM  PAT-m”  MOVE  ~B6  TO  APT2  IAPT-SUBI  CM000019 

01372  40B030  MOVE  B7  TO  APT 3  IAPT-SUBI.  HOVE  B6B  TO  B-ST.  GO  TO  1BTG.  CN000019 

01373  "  40 BO 40  HJHP."  IF  86B  NOT  -  S-ST3  GO  TO  BT-RO'i  CH000019' 

01374  40B050  HOVE  B-CARD  TO  B-TEMP.  CLOSE  B-F1LE. _ CH000019 


01375 

01376 


•  ♦40B050 
40B060 


OPEN  1-0  B-FILE. 
HOVE  12  TO  FLIP-SW. 


01377 

0137B 


40B070 

40B0B0 


BH-REAO.  READ  B-FILE  AT  ENO  GO  TO  IB-ENO. 
IF  B5  NOT  =  ' 1 NTR  *  GO  TO  BH-REAO. 


01379 

013B0 


40B090 

40B100 


IF  BIO  NOT 
1FB6B  NOT 


SPACE  GO  TO  BH-REAO. 
S-ST2  GO  TO  1BTK. 


CM000019 

CM000019 

CM000019 

CM000019 

CM000019 


013B1 

313B2 


403110 

40B120 


PERFORM  B- TABLE.  IF  BSW-1 
S3-SET . _ 


NOT  =  1  GO  TO  BH-REAO.  GO  TO 


013B3 

9JL3B4 

013B5 

013B6 


40B130 

40B140 


IBTK.  IF  BBB  NOT 
IF  BSH-1  NOT 


S-ST2  GO  TO  BH-REAO.  PERFORM  B-TABLE. 
1  GO  TO  BH-REAO.  GO  TO  S4-SET. _ 


*♦041010  1-9. 


CM000019 

CM000019 

CM000019' 

CM000019 

CM000019 


MOVE  A21  TO  P 12  IHK-SUBI. 


013B7 

013B_B_ 

013B9 

01390 


MOVE  14  TO  P1I  IHK-SUBI. 
HOVE  1 1 1  TO  P13  1 HK— SUB ) . 


041020 


MOVE  ITEM-NO  TO  P14  IHK-SUBI. 

HOVE  2  TO  STA-S W  ALTER  I7AA  TO  PROCEED  TO  17HA . 


01391 

01392 


041030 

041040 


IF 

-If. 


19  = 
190 


SPACE  GO  TO  A-17.  IF  I9C  * 
■  SPACE  GO  TO  1 9KB .  IF  19E 


SPACE  GO  TO  19KA. 
e  SPACE  GO  TO  I9KC. 


_CH000019_ 

choo6oi9 

CH000019 
CMOOOO 1 9 

"cMobo'oiV 

CM000019 
CMOOOO 19 
CM000019 


01393 

01394 


041050 
♦♦  41051 


MOVE  19  TO  ST-7.  ALTER 
MOVE  47  TO  FLIP-SW. 


I7AA  TO  PROCEED  TO  I7GA. 


01395 

31396 


041060 

041070 


GO  TO  B 7-OPEN . 

A-17.  IF  A17  »  SPACE  GO  TO  1-10. 


01397 

0139B 


0410BO 

041390 


IF  A17B  =  SPACE  GO  TO  I9K0.  MOVE  A17  TO  ST-2. 

ALTER  17AA  TO  PROCEED  TO  1 TBA.  HOVE  47  TO  FLIP-SW. 


01399  041100  GO  TO  B7-0PEN •  CM000019 

01430  041110  I9K 0.  MOVE  A17A  TO  ST-1.  HOVE  47  TO  FLIP-SW.  GO  TO  B7-0PEN .  _  CM000019 

01401  041120  1 9K  A •  I  F  A17B  «  SPACE  GO  TO  1 9KE.  "  '  '  CMOOOO 19  ‘ 

01402  041130  HOVE  I9AR  TO  ST-1.  HOVE  A 1TB  TO  ST-3.  ALTER  I7AA  TO _ CH00001JT 

01403  041140  PROCEEO  TO  I7CA.  HOVE  47  TO  FLIP-SW.  GO  TO  B7-0PEN .  CH000019 

31404  041150  19KE.  HOVE  19A  TO  ST-1.  HOVE  47  TO  FLIP-SW.  GO  TO  B7-0PEN. _ CH000019 


01405 
01406 
01 40  7 
0140B 


**  4116 
4117 


I9KB.  IF  A17BR  »  SPACE  GO  TO  I9KF. 

HOVE  I9AR  TO  ST-1.  HOVE  19C  TO  ST-5.  HOVE  A17BR  TO  ST-6. 


0411B0 

041190 


01409 

01413 


♦*  4120 
4121 


HOVE  47  TO  FLIP-SW.  ALTER 

GO  TO  B7-0P EN. _ _ 

MOVE 


I 7AA  TO  PROCEEO  TO  17EA. 


CM000019 

CH000019 


19KF.  MOVE  I9AR  TO  ST- 1 .  HOVE  I9C  TO  ST-5.  ALTER  17AA  TO 
PROCEEO  TO  I 7F A  HOVE  47  TO  FLIP-SW  GO  TO  B7-0PEN. 

4122  I9KC.  HOVE  19AR  TO  ST-1.  HOVE  I9BR  TO  ST-3.  ALTER  I7AA  TO 

041230 _  PROCEEO  TO  17CA.  HOVE  48  TO  FLIP-SW.  _ 

GO  TO  B7-0PEN . 

EPB-SET .  IF  BSW-2  =  1  GO  TO  B7-R0.  _ 


01411 
01412 
01413 
01414 
01415 
91416 
01417 
0 141 B 
01419 
01420 


041240 

042010 

"042020" 

042030 


IF  PB-SW2  NOT 
19B0.  GO  TO  19BE. 


=  1  GO  TO  I9TA. 


CM000019 

CH000019 

CM000019 

CH000019 


**  4234 
042350 
042060" 
042070 


I9BE.  IF 
S19-SET . 


B6B  NOT  =  B-ST  HOVE  19  TO  FLIP-SW  GO  TO  B7-RD. 

IF  0-SW1  =  1  GO  TO  1 9TB.  IF  0-SW2  NOT  =  1  GO  T0I9TC. 


IF  THRU-SW  NOT  =  S-ST1  GO  TO  I9TB. 

HOVE  B-ST  TO  S-ST2 .  HOVE  2  TO  APTS  IAPT-SUBI. 


01421 

01422 


0420B0 

042090 


I 9TB.  IF  A13A  NOT  =  SPACE  OR  A15A  NOT  =  SPACE  OR  A16B  =  SPACE 

GO  TO  I 9TC .  PERFORM  SOU 10 -ROUT I NE •  MOVE  B7  TO  OPRTE  ISQ-SUBI 


CM000019 

"CH0006i9 

_CM000019 

CHobobis 

CM000019 
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01423  042091 _ HOVE  B6  TO  Q ? RTF  (SQ-SUB) _ 

01424  042100  MOVE  l  TO  SCA-SW.  GO  TO  I9T0 

01425  042110  19TC.  HOVE  B7  TO  APT4  IAPT-SUBI. _ 

01426  042120  I9T0.  IF  BBS  >  *961’  OR  B8B  =  'P82'  AOD  1  TO  APT-SUB  HOVE  BB  TO 

0.1 42 7  _  042130  APT2  I  APT-SUB  >  HOVE  B9  TO  APT3  IAPT-SUBI  PERFORM  PAT-H _ 

0 1428  042140  HOVE  1  TO  PB-SU2  HOVE  BBB  TO  B-ST. 

01429  042141  19TE.  _  _ 

01430  **  42142*  HOVE  1  TO  P15  IHK-SUB) 

01431  42143  IF  B3RRB  =  '0*  OR  '!'  OR  '2'  OR  «3«  OR  *4'  OR  '5'  OR  '6» 

01432  *♦  42143  OR  OR  'B'  OR  *9'  GO  TO  HI9TE. 

01433  42144  IF  H-SH3  =  0  _ 

01434  42145  HOVE  1  TO  M-SH3 

01435  42146  HOVE  B3  TO  H-4ST _ _ 

01436  42147  GO  TO  H19TE. 

01437  4214B  IF  B3RRA  =  H-ST4  GO  TO  H19TE. _ 

0143B  42149  HOVE  B3  TO  M-5ST. 

01439_**  42149  H19TE. _ _ _ _ 

01440  042150  *  MOVE  B3  T0'P9  (HK-SUB  I*  PERFORM  B-UPOATE  CLOSE  B-FILE* 

01441  042160  GO  TO  1-10. _  _ _ 

01442  042170  I9-EN0.  CLOSE  B-FILE  MOVE  lOl  'to  CEB  MOVE  II  TO  CEA  PERFORM 

01443  0421B0  C-HR1T  GO  TO  1-10. _ . _ 1 

01444  042190  I9TA.  IF  0-SW1  =  1  OR  0-SH2  =  1  GO  TO  SI9-SET. 

01445  **  42191  529-SET. _ _ _ 

0i*446  4220  IF  BBB  «  'PBl*  GO  TO  I9ZR. 

01447  42201 _  IF  BBB  NOT  «  'PB2'  GO  TO  19TE. _ 

0144B  4221  1 9  2  R . 

01449  42211  HOVE  1  TO  PB-SH2. _ 

01450  042220  ‘  HOVE  BBB  TO  B-ST.  AOO  1  TO  APT-SUB  PERFORM  PAT-M 

01451  042230  HOVE  BB  TO  APT2  1 APT-JUBI _HOVE_  B9  TO  APT3  IAPT-SUB) _ 

01452  042240  GO  TO  I9TE.  . 

01453  043010  S  19-SET .  IF  THRU-SH  >  S-ST1  GO  TO  S29-SET. _ 

01454  043020  IF  SQIIIO-COUNT  ■  0  GO*  TO  S29-SET.  . 

01455  043030  I9GC.  GO  TO  I9HC. _ 

01456  »*  4304  I 9HC •  IF  B6B  *  S-ST2  GO  TO  S19-SET • 

01457  4305  MOVE  20  TO  FLIP-SW  GO  TO  B7-RD.  _ 

3145B  043060  I9FC.  IF  S-ST2  =  'PBl*  HOVE  •PB2*  TO  S-ST3  GO  TO  T*9T*F. 

01459  043070  IF  S-ST2  =  'PR2'  HOVE  'PBl1  TO  S-ST3.  __  _ _ 

01460  0430B3  I9TF.  MOVE  14  TO  FLIP-SW  ALTER  I9GC  TO  PROCEED  fo  I9JC  GO  TO 

01461  043090  B7-0PFN . _ 

01462  043100  I9JC.  IF  06B  NOT  *  S-ST3  GO  TO  B7-RD.  MOVE  B-CARO  TO  B-TEMP. 

01463  043110  CLOSE  B-FILF.  OPEN  1-0  B-FILE.  MOVE  1  TO  FLIP-SH. 

01464  043120  BV-REAO.  REAO  B-FILE  AT  ENO  GO  TO  I9-EN0. 

01455  043130  IF  B5  NOT  =  *  INTR *  GO  TO  BV-REAO. _ ; 

01466  043140  IF  BIO  NOT  =  SPACE  GO  TO  BV-REAO.  PERFORM  fr-TABLE. 

01467  ««  4316  I9VC.  IF  B6B  =  S-ST2  GO  TO  S39-SE T . _ 

0 146 B  043170  IF  BBB  =■  S-ST2  GO  TO  S49-SET.  GO  TO  BV-REAO. 

31469  043180  1 9AC.  IF  B-ST  =  'PBl1  HOVE  1 PB2 1  TO  R-ST  GO  TO  I9TG. _ 

01470  043190  IF  B-ST  =  'PB2*  HOVE  'PBl'  TO  R-ST. 

01411  .043203  I9TG.  HOVE  14  TO  FLIP-SW.  ALTER  I9B0  TO  PROCEEO  TO  I9PC. _ 

01472  043210  GO  TO  B7-0PEN. 

01473  043220  I9DC.  IF  BfeB  NOT  «  R-ST  GO  TO  B7-R0.  HOVE  B-CARD  TO  B-TEHP. _ 

01474  043230  CLOSE  B-FILE.  OPEN  1-0  B-FILE. 

01475  43 AO  10 _ MOVE  2  TO  FLIP-SH.  _ _ _ 

01476  43A020  BT-READ.  REAO  B-FILE  AT  ENO  GO  TO  I9-EN0. 

01477  43A030  _ JF  B5  NOT  =  '  INTR'  GO_TO  BT-REAO. _  _ _ 

0147B  43A043  IF  BIO  NOT  =  SPACE  GO  TO  BT-R EAO.  PERFORM  B-TABLE. 

01479  43A060  19EC.  IF  B6B  =  B-ST  GO  TO  S39-SET .  _ 
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CM000019 

CM000019 
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CH000019 

CM000019 

CM000019 

CM0DD019 


CHD00019 


CMD00019- 
CH000019 
CMOOOO 19 
CM000019 
CM000019 

CH000019 
CMOOOO  19 
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014B0  43A070  [F  B8B  NO_T  =  B-ST  GO  TO  BT-REAO. _ _  _  _  CM000019 

01481  43A080  S49-SET.  IF  0-SWi  °  1  CO  TO  I9TH.  IF  0-SH2  NOT  *  1  GO  TO  I9TH.  CM000019 

014B2  43A090  IF  THRU-SW  -  S-ST1  MOVE  8-ST  TO  5-ST2  MOVE  2  TO _ CM000019 


014B3  43A100  APT  5  (APT-SUB1.  CN000019 

01484  43A110  I9TH.  IF  A13A  NOT  =  SPACE  OR  A15A  NOT  =  SPACE  GO  TO  I9TI._ _ CM000019 

01483  43A120  "IF  A16B  =  SPACE  GO'  TO  I9T1.  PERFORM  SQUIO-ROUT 1NE.  CM000019 

01436.  __43 A1 30  MOVE  B8  TO  QPRTF  (SQ-SUB). _ _ 

01487  *"*43A1 30  '  MOVE  B9"T0~  QPRTE  I  SQ-SUB)  MOVE  1  TO  SCA-SW.  -  CM000019 

01488  43A140  19TT.  MOVE  B9  TO  APT4  (APT-SUBI. _ ' _ CM000019 


C14B9  **43A050  19TJ.  ADD  1  TO  APT-SUB.  PERFORM  PAT-M. 

C 1490 _ 43A1 6C  _  MOVE  B6  TO  APT2_  ( APT-SUB >  MOVE  B7  TO  APT3  (APT -SUB) _ CM000Q19 


0149  f  43A17C  MOVE  B6B  TO  B-ST.'  ”  CM000019 

01492  434171  PERFORM  B-UPOATE.  _  _  _  _ 

01493  **43 A1 BO  (9TK.IF  BT68  NOT  =  B-ST  MOVE  902  To"  CEB  MOVE  11  TO  CEA  PERFORM  CM000019 
01494  43A19 _ C-WR1T  CLOSE  B-F1LE  GO  TO  1-10.  MOVE  BT7  TO  APT4  (APT- SUB). _ 


01495  43A200  CF  BT8B  =  'PB1*  OR  BTBB  «  • PB2  *  ADO  1  TO  APT-SUB  MOVE  BTB  CM000019 

01496  43A2J0  TO  APT 2  (APT-SUBI  MOVE  BT9  TO  APT3_  ( APT-SUB)  PERFORM  PAT-M _ CM000019 

01497  43A220  MOVE  1  TO  PB-SW2  CN0006i9 

01498  43A221  MOVE  BTBB  TO  B-ST.  _  _ _  _  _  CM000019 

01499  43A222  '  "  IF  B3TRRB  =  "O'  OR  M'  OR  OR  '31  OR  '4 'or'  5’’’ "OR  •  6'''  “ 

01500  **43A222  OR  »7«  OR  «8*  OR  '91  GO  TO  MI9TK. _ 


01501  43A223  IF  M-SM3  =  0 

01502  43A224  MOVE  1  TO  MrSW3_  _  _  _ CM000019 

01503'  43A22  5  "  HOVE'  BT3  TO  M-4ST  “ 

01504  43A226_ GO  TO  M19TK. _ CM000019 

01505  43A227-  '  F  B3TRRA*  «  M-ST4  GO  TO  MI9TK.  CM000019 

01506  43A22B  MOVE  BT3  TO  M-5ST . _ 


01507  43A229  MI9TK.  CM000019 

0150J  43A231  _MOVE  BT3  TO  P9_  (HK-J_UB) _ _ _ _ _ _ 

01509  43A240  PERFORM  Bf-UPDATe  CLOSE  B-FILE  GO  TO  1-10.  CH000019 

01510 _ 43B010  J.39-SET.  IF  O-SWl^  1  GO  TO  I9TL.  IF  0-SW2  NOT  -  1  GO_JCL  I9TM. _ CM000019 

01511  -C3B020  '  IF  THRU-'SH  NOT  '«  S-ST1  GO  T0_  I9TL.  MOVE'B-Sf  TO  S-ST2.*  '  CM000019 

01512  43B330  MOVE  2  TO  APT5  (APT-SUB). _ CH000019 


01513  43B040  19TL.  IF  A13A  NOT  =  SPACE  OR  A15A  NOT  *  SPACE  OR  A16B  -  SPACE  CM000019 


015.14  _43B05  GO  TO  ( 9TM .  PERFORM  SQUI O-ROUT INE  MOVE  B7_T0  _ _ 

01515  43B051  QPRTE  (SQ-SUB I 

01516.  43B05 2 _  MOVE  B6  TO  QPRTF  ISQ-SUB_)  _  _ _  _ 

01517  43B060'  MDVE  1  TO  SCA-Sw7 

0151B  43B070  19TM.  MOVE  B7  TO  APT4  (APT-SUB). _ _ 

01519  43B0B0  I9TN.  AOO  1  TO  APT-SUB.  PERFORM  PAT-M.  MOVE  BB 

01520  43R090  TO  APT 2  (APT-SUB)  MOVE  B9  TO  APT3  (APT-SUB)  MOVE  BBB  TO  B-ST . CM000019 


"  01  52  i  43B091  MOVE  B3  TO  P9  (  HK- SUB)' MOVE' 1  TO  P15  "(Htt-SUB)  "  . ""CM000019 

01522  43B092  PERFORM  B-UPOATE. _  _ _ 

01523  43B100  "  GO  TO  ( 9TK .  ""  "  .  '  CM000019 

31524  **045010  (-10. _ _ _ CH000019 


01525  045020  HOVE  3  TO  STA-SN.  ALTER  I 7AA  TO  PROCEEO  TO  I7HA.  CM000019 

01526  HOVE  A21  TO  P12  (HK-SUB).  _ 

01527  MOVE  14  TO  P'il  (HK-SUB). 

0152B  _  MOVE  (11  TO_P  13  (HK_-SUB).  _ 

01529  ■  "  MOVE  ITEM-NO  ftTplV  IHK-SUB).'  '  '  "  . 

01530  045030 _ IF  IIP  ;  SPACE  GO  TO  A-20. _ CM000019 


01531  045031  IF  (10B  =  OR  I10C  =  GO  TO  1. 

01532  045040  IF  110C  =  SPACE  GO  TO_llOKA. _ _  _  CM000019 

01533  '  045050  IF  1 100  -"SPACE  GO  TO  110KB.  CMOOOOl'9' 

01534  045080  IF  110E  -  SPACE  GO  TO  I10KC.  CM000019 

"01 535  045070  MOVE  110  T0"ST-7'.  ALTER  l'7AA'"'to  PROCEEO  TO  I7GA.  "  CM000019 

01536  **  45071  MOVE  27  TO  FL1P-SN. 
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01537 

045080 

GD  TO  B7-0PEN. 

CH000019 

CMQ00019 

CM000019 

01538 

01539 

045090  A- 
045100 

-20. 

IF  A20  =  SPACE  GO  TO  STA-CK. 

01590 

045110 

IF  A 208  =  SPACE  GO  TO  UOKO. 

CH000019 

01541 

045120 

HOVE  A20  TO  ST-2.  ALTER  I7AA  TO  PROCEEO 

TO  I7BA. 

CMOOOO 19 

01542 

045130 

HOVE  27  TO  FLIP-SW.  GO  TO  87-OPEN. 

CHob6oi9 

01543 

045140  I10KA . 

CH000019 

01544 

045150 

IF  A 20 8  *  SPACE  GO  TO  HOKE. 

CMOOOO  19' 

I'ltu-a 

045160 

HOVE  I10AR  TO  ST-1.  HOVE  A20B  TO  ST-3. 

CM000019 

01546 

045170 

ALTER  I 7AA  TO  PROCEEO  TO  I7CA. 

CH000019 

01547" 

045180 

HOVE  27  TO  FLIP-SW.  GO  TO  87-OPEN. 

CM000019 

01548 

045190  I 10KB* 

CH000019 

01549  **  4520 

IF  A208R  =  SPACE  GO  TO  I10KF. 

01550 

045210 

HOVE  I10AR  TO  ST-1.  HOVE  I10C  TO  ST-5. 

CHbooW 

01551  **  4522 

MOVE  A20BR  TO  ST-6.  ALTER  I7AA  TO  PROCEED  TO 

I  7EA. 

01552 

045230 

MOVE  27  TO  FLIP-SW. 

CH000019 

01553 

045240 

GO  TO  87-OPEN. 

01554  **044010  I10KC.  . 

CH000019 

01555 

044020 

HOVE  HOAR  TO  ST-l.  HOVE  I108R  TO  ST-3. 

CH000019 

01556 

044030 

ALTER  I 7AA  TO  PROCEEO  TO  I7CA. 

CMOOOO 19 

01557 

044040 

HOVE  2B  TO  FLIP-SW.  GO  TO  87-OPEN. 

CM000019 

01558 

044050  UOKD. 

CH000019 

01559 

044060 

MOVE  A20A  TO  ST-1.  MOVE  27  TO  FLIP-SW. 

CH000019 

01560 

044070 

GO  TO  87-OPEN. 

CH000019 

01561 

044080  HOKE. 

CH000019 

01562 

044090 

HOVE  I10A  TO  ST-1.  MOVE  27  TO  FLIP-SW. 

CH000019 

01563 

044100 

GO  TO  87-OPEN. 

CM000019 

01564 

044110  I10KF. 

CH000019 

01565 

044120 

MOVE  I10AR  TO  ST-1.  MOVE  HOC  TO  ST-5. 

CH0O0019 

01566  **  4413 

MOVE  27  TO  FLIP-SW. 

01567 

044130 

ALTER  I7AA  TO  PROCEEO  TO  I7FA.  GO  TO  BT 

-OPEN. 

CMOOOO 19 

0156B 

044140  KPB-SET. 

CM000019 

01569 

044160 

IF  PB-SW2  NOT  =  1  GO  TO  I  IOTA. 

CM000019 

01570 

044170  U0C8.  GO  TO  I 1008. 

CM000019 

01571 

044180  I 1008.  IF  B6B  NOT  =  B-ST  HOVE  15  TO  FLIP-SW 

GO  TO 

B7-RD. 

CH000019 

01572 

044190  5110-SET . 

CM000019 

31573 

044200 

IF  0-SW1  =  1  GO  TO  I 10TB. 

01574 

044231 

IF  0-SW2  »  1  IF  19  =  SPACE  IF  A17  ■ 

SPACE 

31575 

044202 

GO  TO  S 110-SETZ  ELSE  GO  TO  HOTB  ELSE 

GO  TO 

I 10TB • 

31576 

044210 

IF  0-SW4  NOT  =  1  GO  TO  I10TC. 

CMOOOO 19 

01577 

044211  5110— SETZ. 

01578 

044220 

IF  THRU-SW  NOT  =■  S-ST1  GO  TO  I 10TB. 

CMO 00019 

01579 

044230 

MOVE  B-ST  TO  S-STZ. 

CH000019 

015BO 

044240 

MOVE  2  TO  APT 5  (APT-SUB). 

CH000019 

I'HUa 

046010  I 10TB. 

CM000019 

015B2 

046020 

IF  A13A  NOT  =  SPACE  OR  A1SA  NOT  =  SPACE 

OR  A1B A  NOT 

=  SPACE  CH000019 

01583 

046030 

OR  A1BB  =' SPACE  GO  TO  I10TC. 

CM000019 

D15B4 

046040 

PERFORM  SQUID-ROUTINE .  HOVE  B6  TO  QPRTF 

( SQ-SUB 1 • 

CM000019 

315B5 

046053 

MOVE  B7  TO  QPRTE  (SQ-SUB).  HOVE  1  TO  SCA-SW. 

CM003019 

01586 

046060 

GO  TO  I10AA. 

CH000019 

01587 

046070  I10TC.  HOVE  87  TO  APT 4  (APT-SUB). 

CM000019 

015BB  **  46071  I10AA.  IF  I7-SWT  =  1  HOVE  0  TO  I7-SWT 

015B9 

46072 

IF  B68  =  'PBl*  OR  B6B  »  'PBZ* 

01590 

46073 

GO  TO  A AO 11 

01591 

46074 

ELSE  HOVE  B6  TO  PSA  IHK-SUB) 

01592 

46075 

HOVE  87  TO  P5B  (HK-SU8 ) . 

OJ593 

46Q76  . 

HOVE  0  TO  1 7- SWT . 
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01594 

46080 

AA011.  MOVE  B3  TO  P10  IHK-SUBI  HOVE  1  TO  P15  IHK-SUBI 

31595 

01596 

**  460B0 
0460B0 

HA  101 . 

IF  B3RRB  =  *0*  OR  M*  OR  ‘2'  OR  '3'  OR  '4*  OR  '5*  OR  '6» 

CH000019 

01597 

0159B 

**0460 BO 
**  460SO 

OR  'T*  OR  *8*  OR  *9'  GO  TO  MA10IAL. 

IF  H-SW3  =  0 

CM000019 

01599 

01600 

4*  460B0 
4*  460 BO 

MOVE  1  TO  M-SM3 

MOVE  B3  T0.H-6ST. 

CM000019 

01601 

01602 

046080 
**  46081 

HA10IAL. 

PERFORM  B-UPOATE  CLOSE  B-FILE  GO  TO  STA-CK. 

CM000019 

01603 

■01604 

046090 

046100 

I  IOTA. 

IF  0-SW1  =  l  GO  TO  I10T0. 

CM000019 
CM00001 9 

-01605 

01606 

046110 

046120 

IF  0-SW2  =  1  GO  TO  UOTD. 

IF  0-SW4  =  1  GO  TO  I10T0.  GO  TO  1 10AA 

CM000019 

CM000019 

31607 
0160  B 

046130 

046140 

1 10 TO.  IF  THRU-SW  >  S-ST1  GO  TO  UOAA. 

IF  SOUI 0- COUNT  =  0  GO  TO  I 10AA. 

01609 

01610 

046150 

046L60 

I 10CA .  GO  TO  I 100A. 

I100A.  IF  B6B  =  S-ST2  GO  TO  SllO-SET. 

CM000019 

CM000019 

01611 

01612' 

046170 

0461B0 

MOVE  17  TO  FLIP-SW  GO  TO  B7-R0. 

1 10BA. 

CH000019 

CM000019 

01613 

01614 

046190 

046200 

IF  S-ST2  »  ' PB1 '  MOVE  ' PB2*  TO  S-ST3  GO  TO  I10TE. 

IF  S-ST2  =  ' PB2 1  MOVE  'PB11  TO  S-ST3. 

CM000019 
CM00001 9 

01615 

01616 

046210 

046220 

1 10TE .  ALTER  UOCA  TO  PROCEEO  TO  UOEA. 

MOVE  18  TO  FLIP-SM  GO  TO  B7-0PEN.  - 

CM000019 

CM000019 

01617 
0  16  IB 

0470  1  0 
047020 

I10EA.  IF  B6B  NOT  =  $-ST3  GO  TO  B7-R0. 

MOVE  B-CARO  TO  B-TEHP.  CLOSE  B-FILE. 

CM000019 
CM00001 9 

■01619 

01620 

**  47030 
047040 

OPEN  1-0  B-FILE.  MOVE  2  TO  FLIP-SM. 

BJ-RO. 

CM000019 

01621 

01622 

047050 

047060 

REAO  B-FILE  AT  END  GO  TO  I10-EN0. 

IF  B5  MOT  *=  '  INTR •  GO  TO  BJ-RO. 

CM000019 

CK000019 

01623 

01624 

047070 

0470B0 

IF  BlO  NOT  «  SPACE  GO  TO  BJ-RO. 

PERFORM  B-TABLE. 

CM000019 

CM000019 

01625 

01626 

047090 

047130 

IF  BSW-1  =  1  GO  TO  I 10FA.  GO  TO  BJ-RO. 

1 13 FA.  IF  B6B  *  S-ST2  GO  TO  S310-SET.- 

CM000019 

CH000019 

01627 

01623 

**  4711 
047120 

IF  BBB  *  S-ST2  GO  TO  S410-SET.  GO  TO  BJ-RO. 

IlO-ENO. 

CH000019 

01629 

01630 

047121 

047130 

CLOSE  B-FILE. 

MOVE  101  TO  CEB.  MOVE  11  TO  CEA  PERFORM  C-MRIT  GO  TO 

CM000019 

01631 

01632 

047140 

047150 

STA-CK. 

I10BB. 

CM000019 

CM000019 

31633 

01634 

047160 

047170 

IF  B-ST  =  *PB1'  MOVE  ■  PB2 '  TO  R-ST  GO  TO  I10TF. 

IF  B-ST  =  *PB2 1  MOVE  ■PB1*  TO  R-ST. 

CM000019 

CM000019 

•01635 

01636 

047180 

047190 

UOTF.  MOVE  16  TO  FLIP-SM.  ALTER  I10CB  TO  PROCEEO  TO  I 10EB. 

GO  TO  B7-0PEN. 

CM000019 

CM000019 

-01637 
■  0163B 

047200 

047210 

1 10EB. 

IF  B68  NOT  =  R-ST  GO  TO  B7-RD. 

CM000019 
CM00001 9 

01639 

01640 

047220 
**  4723 

HOVE  B-CARO  TO  B-TEMP.  CLOSE  B-FILE. 

OPEN  1-0  B-FILE.  MOVE  1  TO  FLIP-SM. 

CM000019 

01641 

01642 

048010 

043020 

BK-RO.  REAO  B-FILE  AT  ENO  GO  TO  110-END. 

IF  B5  NOT  =  • INTR*  GO  TO  BK-RO. 

CM000019 

CM000019 

01643 

01644' 

04B030 

048040 

IF  BIO  NOT  =»  SPACE  GO  TO  BK-RO.  PERFORM  B-TABLE. 

IF  BSW-1  MOT  =  1  GO  TO  BK-RD. 

CM000019 

CM000019 

01645 

01646 

**  4 BO  5 
04B060 

UOFB.  IF  B6B  NOT  =  B-ST  GO  TO  I10TG. 

S310-SET • 

CM000019 

01647 

0164B 

04B070 

04B0BO 

IF  0-SW1  =  1  GO  TO  I10TH. 

IF  0-SW2  =1  IF  19  =  SPACE  IF  A17  *  SPACE 

CM000019 

01649 

01650 

048081 

04B090 

GO  TO  S310-SET22  ELSE  GO  TO  I10TH  ELSE  GO  TO  I10TH. 

IF  0-SW4  NOT  =  1  GO  TO  UOTI. 

CM000019 

131 


AEOC-TR-71-109 


30 


01651 

31652 

01653 


048091 

04B100 

048110 


S310-SET22. 


IF  THRU-SW  NOT  =  S-ST1  GO  TO  I10TH. 

MOVE  B-ST  TO  S-ST2.  HOVE  2  TO  APTS  (APT-SUB). 


CM000019 

CM000019 


01654 
01655 
01656 
0.1657. 
0 1658 
3  1659 


04B120 
_  048130 
*♦  4B14 

_  48141 

048150 

04B160 


I10TH. 

IF  A13AN0T 


=  SPACE. OR  A15A  NOT  =  SPACE  OR  A1B A  NOT  =  SPACE 


CM000019 

CM000019 


GO  TO  I10TI.  PERFORM  SQUID-ROUTINE. 

_ MOVE  87  TO  QPRTE  I  SO- SUB) _ _ _ 

MOVE  1  TO  SCA-SW.  MOVE  S-ST2  TO  QPRTF  (SQ-SUB)  GO  TO  IlOTJ. 
I10T1.  MOVE  BT  TO  APT4  (APT-SUB). 


CM000019 


01660 

31661 


048170 

04B183 


IlOTJ.  ADD  1  TO  APT-SUB.  MOVE  B8  TO  APT2  I  APT-SUB) .  PERFORM 
PAT-M.  HOVE  B9  TO  APT3  (APT-SUBI.  HOVE  B8B  TO  B-ST.  _ 


CM000019 

CM0000I9 


CM0000I9 


31662  04B190  UOTK.  PERFORM  B-UPDATE.  CLOSE  B-FILE. 

J51663 _ 048200 _ IF  BT6B  -  B-ST  HOVE  BT7  TO  APT4  (APT-SUB) 

01664  **048200  OPEN  1-0  B-FILE  PERFORM  8T-UP0ATE 
01665  ♦«  4B200  PERFORM  HI10TK  THRU  HI10TKX _ 


01666 
01667 
0i6SB 
.0  166  9 
01670 
01671 


048201 
♦*04fl?0JL 
048210 

_ 048220 

**  48221 
48222 


MOVE  BT3  TO  P10  (HK-SU8) 
CLOSE  B-FILE 


GO  TO  STA-CK.  MOVE  102  TO  CEB  MOVE  II  TO  CEA  PERFORM  C-WRIT  CM003019 

GO  TO  STA-CK. _ _  CH000019 

MIIOTK.  CM6000I9. 

IF  B3TRRB  «  «0«  OR  M1  OR  »2‘  OR  '3'  OR  »4»  OR  »5»  OR  »6« _ 


01672  **  4B222  OR  '7'  OR  '8'  DR  *9'  GO  TO  MI10TKX. 

01673_  48223 _ IF.  M-SH3  «  0 _ j_ _ 

01674  48224  MOVE  l  TO  M-SW3 

01675  4B225  _  _  MOVE  8T3  TO  M-6ST . _ _ 

01676  **  48222  MlidTKX.  EXIT. 

01677  049010  I10TG.  IF  BBB  NOT  =  B-ST  GO  TO  BK-RD. 


CH0000I9 

CM000019- 


CM003019 


01678  049020  S410-SET. 

01679  _  C4902I  IFJ1-SW1  -  1  GO  TO  I10TL. _ 

01680  049022  IF"  0-SW2  *  i  IF  19  ■  SPACE  IF  A17  *  SPACE 

0 16R 1 _  049023  _  GO  TO  S4I0-SET22  _ELSE  GO  TO  I10TL  ELSE  GO  TO  110TL. 

01632  049030  IF  0-SW4  NOT  =  1  GO  TO  UOTM. 

01683  049031  S410-SET22. _ 


CM000019 


31684  049340  IF  THRU-SH  *  S-ST1  HOVE  B-ST  TO  S-ST2  CMOOOOI9 

01685  049C53  MOVF  2  TO  APT5  (APT-SUBI. _  CH0000I9 

01686  04906 G  I13TL.  IF  A13A  NOT  -  SPACE  OR  A15A  NOT  =  SPACE  OR  A"l8A  NOt  *  "  CM000019 

01687  04907C  SPACE  OR  A188  =  SPACE  GO  TO  I10TM.  PERFORM  SQUID-ROUTINE. _ CH000019 

0168R  **  49071  MOVF  BR  TO  QPRTF  (SQ-SUB)' . 

01639  049080  MOVE  B9  TO  QPRTE  (SQ-SUB I  MOVE  1  TO  SCA-SW.  GO  TO  I10TN.  CH0000I9 


01690  049090  I 10TM.  MOVE  B9  TO  APT4  (APT-SUB). 

01691  **  4910  I10TN.  AOD  1  TO  APT-SU8.  PERFORM  PAT-M. 

01692  49101  MOVE  BS  TO  APT2  (APT-SUB) 

01693  049110  MOVE  R7  TO  APT 3  I APT-SUB).  MOVE  86B  TO  B-ST. 

01694  **036010  B-TARLE. 

01695  *«  36011  MOVE  1  TO  BSH-1. _ 


CMOOOOI9 


GO  TO  I10TK. 


CM000019 

CN000019 


01696 

01697 

0169B 

01699 

01700 


5021 

5022  - 
50222 

5023 
050230 

**050230 


STA-CK.  SUBTRACT 

_ PRINT-OUT  . _ 

IF  SCA-SW  = 
_SCA-SW. 


1  FROM  THRU-SW.  IF  THRU-SW  =  ZERO  GO  TO 


1  SUBTRACT  1  FROM  SQUIO-COUNT  HOVE  ZERO  TO 


IF  SQUIO-COUNT  =  0  MOVE  0  TO  O-SWI  0-SW2  0-SW4  S-ST1 


01702 
017C3  ** 

50231 

2025 

PERFORM  ENO-ALT. 

MOVE  ALN  (THRU-SW)  TO  A-TEMP.  PERFORM 

I-REAO. 

01704 

5026 

A 00  1  TO  HK-SUB.  GO  TO  ASQ-LK. 

017C5 

5050 

R-EXT.  PERFORM  OXX  THRU  HXX  UNTIL  THRU-SW 

<  2.  GO  TO 

01706 

5051 

OXX.  READ  I-FILE  AT  END  GO  TO  I-END.  SUBTRACT  1  FROM 

01737 

5052 

HXX.  EXIT. 

■ 

CM000019 


CM000019 

CH00001.9 
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01708 
01709 
01710 
01711  ' 
01712 
01711 
01714 
01715 
0171-6 
01717 
01718 
01719 
01720 
01721 
-01722 
01723 
01724 
01725 
01726 
01727 
01728 
01729 
01730 
01731 
01732 
01733. 
01734 
01735 
01736 
01737 
01738 
01739 
01740 
01741 
01742 
01743 
01744 
01745' 
01746 
01747 
0174B 
01749 
01750 
01751" 
01752 
01753 
01754 
01755 
01756 
01757 
0175  8 
01759 
01760 
01761 
01762 
01763 
01764 


5053 

5101 

5102 

5107 

5108 

5109 

5112 

5113  - 

5114 
51141 
511 5_ 

-  51151 

5116  - 

5117  - 
511B  • 
5 11 H 1 
51102 

**  51171 

51173 

51174 
051175 

*♦  51178 
5119 
051210 
**  5201 

5205 

5206 

5209 

5210 
52U 
52111 

5212 

5213 

52141 

52142 

52151 

52152 
**  52152 
»*  52152 


**  52152 

52155 

52156 

52157 

52158 

52159 
*♦  52158 


IA-ENO.  GOTO  l-ENO^ _ 

PRINT-OUT. 

HOVE  ZERO  TO  HK-SUB.  HOVE  ZERO  TO  PAT-SUB. _ _ 

PERFORM  HK-ROUT  THRU  HK-PREX  UNTIL  HX-SUB  >  5. 

GO  TO  PAT-ROUT. _ _ _ 

HK-ROUT. 

ADO _1  TO  HX-SUB.  IP  PIS  1HK-SUB)  -  1  HOVE  PI  1HX-SUB)  TO 
PBT1  HOVE  P2  (HK-SUB I  TO  PBT2  HOVE  P3  (HX-SUB)  TO  PBT3 

HOVE  P4  ( HK-SUB 1  TO  PBT 4  HOVE  P5A  (HX-SUB!  TO  PBT5A _ 

MOVE  P5B  (HX-SUB)  TO  PBT5B  MOVE 

_ P6  (HX-SU8)  TO  PBT6  HOVE  P7  (HK-SUB)  TO  PBT7 _ 

MOVE  PB  (HK-SUB) 

_  TO  PBTB  MOVE  P9  (HX-SUB)  TO  PBT9  HOVE  P10[HK-SUB)  TO  PBT10 

HOVE  "P~ii  IHK-SUB)~TO  PBTl'l  MOVE  P12  (HK-SUB)  TO  PBT12  HOVE 

PI 3  I HX-SUB )  TO  PBT 1 3  HOVE  P14  (HK-SUB)  TO  PBT14 _ 

MOVE  P 1 A  (HX-SUB)  TO  PBT1A 

HOVE  P16  (HX-SUB)  TO  PBT15 _ 

HOVE  P 14  (HX-SUB")  TO  p'ZM 

PERFORM_CX-PZH _ _ _ _ 

MOVE  PZHP  TO  PBT 14 

HOVE  P12  (HK-SUB)  TO  PZH _ 

PERFORM  CK-PZM 

MOVE  PZHP  _  T0_PBT12 _ 

WRITE  HK-PRT  FROM  EOUT-PRT. 

HK-PREX.  EX  IK _ _ _ _ 

PAT-ROUT. 

PERFORM  PT-ROUT  THRU  PTEX  UNTIL  PAT-SUB  >  95.  GO  TO  ENDIT . 
PT-ROUT. 

_A00  1  TO  PAT-SUB.  1F_  APTS  (PAT-SUB)  »  1  GO  TO  PT-B. 

IF  APT5  (PAT-SUB)  NOT  •>' 2  GO  TO  PTEX. 

_ ;  IF  APT  2  I  PAT- SUB  I  -  »PBJ _ ■  PERFORM  PT-B  ELSE  _ 

PERFORM  BTPr  '  MOVE* ZERO  TO  N-SUB. 

PERFORM  PT-S  UNTIL  N-SUB  >  5.  GO  TO  PTEX. _ 

PT-S.  • 

ADO  1  TO  N-SUB  _  _  _ _  _ _ _ 

IF  OPRTD  IN-SUB)  =  l  IF  QPRTF"  In'-SUBF  -  "•PBl '  ■ 

HOVE  QPRTA  IN-SUB) _ _  _  _ 

TO  PAT  1  MOVE  QPRTB"  (  N- SUB )' ' T o"  P'a'TIA  HOVE "QPRTC . (N-SUB)  TO  ' 
PAT3  HOVE  OPRTE  ( M-5UB )  TO  PAT4  HOVE  QPRTF  (N-SUB)  TO  PAT2 
HOVE  SPACE  TO  TAPI  TAP2  TAP3  TAP4  HOVE  0  TO  TAPIA 
A 00  1  TO  SUB36  HOVE  SUB36  TO  PAT 36  MO.VE  QPRTA  (N-SUB)  TO  PZH 
PERFORM  CK-PZM 

MOVE  PZHP  TO  PZPAT _ _ _ 

WRITE  PAT-PRT  FROM  BOUT-PRT 

ELSE  PERFORM  SQTP. _ 

SQTP, 

HOVE  SPACE  _T0  PAT1  PAT2  PAT3  PAT4  HOVE^OJO  PAT1A. 

““  HOVE  'QPRTA'  I  N-SUB)  "TO  TAPl'  HOVE  QPRTB  (N-'SUB)  TO  TAPIA  ' 

_ HOVE  QPRTC  (N-SUB)  _T0_TAP3  _MOVE  QPRTE  (N-SUB)  TO  TAP4 

HOVE' QPRTF'  (N-SUB)"  T0'TAP2'. .  . 

AOO  1  TO  SUB36  HOVE  SU636  TO  PAT36  HOVE  QPRTA  (N-SUB)  TO  PZH 
PERFORM  CK-PZM 

_MOVE  PZHP  TO  PZPAT _ _ _ _  _  _ _ 

WRITE  PAT-PRT  FROM  BOUT-PRT.  “  * 

BTP.  _ _ _ .  _  _ 

HOVE  SPACE  TO  P"AT'f'PAT2  PAt3"PAT4  MOVE'O  TO  PATIA. 

HOVE  APT1  (PAT-SUB)  TO  TAPI.  HOVE  APT1A  (PAT-SUB)  TO  TAPIA. 


CH000019 

CMOO 

CM00D019 
CHOOOOl  9~ 
CH000019 
CHOOOOl 9 


CM000019 
CHOOOOl  9 
CHOOOOl 9 

CHOOOOl 9 


CH000019 

CH000019 

CH000019 

CH000019 

CM000019 


CM000019 


CH000019 
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01765  52214  HOVE  APT2  (PAT-SUB)  TO  TAP2  .  HOVE  APT3  (PAT-SUB)  TO  TAP3. 

01766  52215  MOVE  APT4  (PAT-SUB  I  TO  TAP4. 

01767  »♦  52214  ADD  1  TO  SUB36  HOVE  SUB36  TO  PAT 36  HOVE  APT1  IPAT-SUB)  TO  PZH 


01782  052200  PTEX.  EXIT. 

01783  053010  ENOIJ. _ _ _ 

01784  **  53011  MOVE  0  TO  SUB3~6 

01785  5302 _ HOVE  ZERO  TO  C-SW 


01798 

01799 

01800' 

01801 


01820  53107  ALTER  I7AA  TO  PROCEEO  TO  I7HA. 

01821 _ 53108  ALTER  AP8- SET  TO  PROCEEO  TQ-BPB-SET. 


NEXT  SENTENCE  ELSE  GO  TO  RO-MBF  ILI;. 

IF  B3RR8  -  »0«  OR  »1»  OR  «2»  OR  '31  OR  *4*  OR  »5»  OR  »6» 
OR  *7"  OR  *8*  OR  '9*  GO  TO  R0-M8FILE. 

PERFORM  B-TABLE.  IF  BSM-1  =  1  PERFORM  B-UPOATE. 


CMOOOO 19 
CM000019 
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01822  53109 _ ALTER  GJHP  TO  PROCEED  TO  IJHP. 

01823  5311  ALTER  I9GC  TO  PROCEED  TO  I9HC. 

01824  53111  ALTER  I960  TO  PROCEED  TO  I9BS. 

01825  53112  ALTER  I10CA  TO  PROCEED  TO  I100A. 

01826  53113  _  _ALTER  I10CB  TO  PROCEEO  TO  1 1008. 

01827  531-1.4  NH-TO. 

01828  **  5310 _ GO  TO  A-OPEN. 


01873  20 

01874  2 1_ 

01875  "**  II 
01876  222 

01877  23 

01878  24 


HOVE  B9  TO  89H  HOVE  810  TO  B10H 

MOVE_  811  _  TO  B1_1H  _ 

WRITE"  PRT-REC  FROH  BB-HD  AFTER  8BB". 

HOVE  J  TO  88B. 

A 00  1  TO  B-CT" 

PERFORH  8-JECT. 


CH000020 

CH000020 
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01874 

SO  TO  REAO-BC. 

01880 

** 

05 

8-JECT. 

CK000020 

■rTTHl 

06  ■ 

IF  B-CT  >  49 

CM000020 

01882 

MOVE  0  TO  B-CT 

01883 

07 

WRITE  PRT-RFC  FROM 

AB-HO  AFTER  AB8 

CM000020 

01884 

.  08 

MOVF  *1*  TO  AB8 

CM000020 

01885 

** 

061 

MOVE  *0*  TO  B88 

01886 

09 

WRITE  PRT-REC  FROM 

A88-H0  AFTER  A88S. 

CM000020 

01887 

10 

8 I GO*  GO  TO  READ-BC. 

CMOC0020 

01883 

*♦ 

03 

START-C. 

CMQ00020 

01889 

04 

CLOSE  B-FILE. 

CM000020 

01390 

OPEN  1-0  C-FILE. 

01891 

06 

WRITE  PRT-REC  FROM 

ACCC-HD  AFTER  0. 

CH000020 

01892 

07 

MOVE  50  TO  C-CT. 

CM000020 

01893 

08 

GO  TO  C-JECT. 

CM000020 

91894 

PASFOUR. 

31895 

REAO  C-FILE  AT  ENO 

GO  TO  CFENO. 

01896 

09 

REAO-CF. 

CM000020 

01897 

10 

REAO  C-FTLE  AT  END 

GO  TO  CFENO. 

CM000020 

01838 

IF  IFCLIST  =  >0*  GC 

1  TO  ONLY-ASGIN. 

01899 

16 

CO.  MOVE  Cl  TO  C1H 

01900 

17 

MOVE  C3  TO  C3H 

MOVE  C4A  TO  C4AH 

01901 

13 

“OVE  C4B  TO  C4BH 

MOVE  C4C  TO  C4CH 

01902 

19 

MOVE  C5  TO  C5H 

HOVE  C6  TO  C6H 

01933 

20 

MOVE  C7A  TO  C7AH 

MOVE  C 78  TO  C7BH 

01904 

21 

MOVE  C8  TO  C8H 

MOVE  C9  TO  C9BH 

• 

01905 

22 

MOVE  C10A  TD  C10AH 

01906 

MOVE  Cl 1A  TO  C 1 1 AH. 

01907 

2* 

MOVE  CUB  TO  C110H 

1  HOVE  C12  TO  C12H 

01908 

*¥ 

01 

WRITE  PRT-REC  FROM' 

BC-HD  AFTER  BCD. 

01909 

012 

MOVE  '  <  TO  3CC. 

01910 

02 

AOO  l  TO  C-CT 

CM000020 

01911 

03 

PERFORM  C-JECT. 

CM000020 

01912 

04 

GOC.  GO  TO  REAO-CF. 

CM000020 

01913 

39 

C-JFCT. 

CM000020 

01914 

10 

IF  C-CT  >  49  MOVE 

0  TO  C-CT 

CM000020 

0t91  5 

111 

MOVE  ■O'  TO  8CC 

01916 

#* 

11 

WRITE  PRT-REC  TROM 

AC-HD  AFTER  ACC 

CM000020 

01917 

12 

MOVE  »l«  TO  ACC 

CM000020 

01918 

13 

WRITE  PRT-REC  FROM 

ACC-HO  AFTER  ACCC. 

CM000020 

01919 

** 

03 

GO  TO  READ-CF. 

CM000020 

01920 

ONLV-ASGIN. 

- 

01921 

IF  C9  SOT  =  'O'  GO 

TO  REAO-CF. 

01927 

IF  Cl  NOT  =  TSTCELL 

GO  TO  REAO-CF. 

01923 

IF  C5  =  SPACE  GO  TO 

REAO-CF. 

01924 

PERFORM  CO. 

01925 

PERFORM  PASFOUR. 

01926 

PERFORM  CO. 

01927 

PERFORM  PASFnUR . 

01928 

PERFORM  CO. 

01929 

PERFORM  PASFOUR  • 

C1930 

PERFORM  CO. 

01931 

PERFORM  PASFOUR. 

01932 

PERFORM  CO. 

01933 

GO  TO  REAO-CF. 

01934 

19 

CFESD. 

CM000020 

01935 

** 

02 

CLOSE  C-FILE. 

CM00002C 
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01  936 
01937 
01938 
01939 
01940 
01941 
01942 
01943 
01944 
01945 
01944 
01947 
31943 
01949 

01950 _ 

01951  ELSE  MOVE  PZl  TO  PZMP3  HOVE  SPACE  TO  PZMPl  PZMP2 

01952  ELSE  MOVE  PZ2  TO  PZMP3  HOVE  PZl  TO  PZMP2  HOVE  SPACE  TO  PZMPl 

01953  ELSE  HOVE  PZl  TO  PZMPl  MOVE  PZ2  TO  PZMP2  MOVE  PZ3  TO  PZMP3. 

01954  5323  PEO.  CLOSE  1-FILE.  CLOSE  PRT-A.  CLOSE  PRT-B.  CLOSE  O-CARO.  CN000019 

01955  OPEN  1-0  8-FILE.  OPEN  OUTPUT  B-UPTAPE. 

01956 _ B-PEO. _ 

01957 
01953 
01959 
01960 
01961 
01962 


31987  077162  IF  A20B  =  SPACE  GO  TO  BTAB-LK • 

31989  077163  IF  A20B  NOT  =  B5B  GO  TO  B7-RD. 

019B9  077164  GO  TO  BTAB-LK. 

01990  077170  3. 

01991  077180  ALTER  I 7AA  TO  PROCEEO  TO  31. 

01992  077190  GQ  TO  B7-0PEN. 


REAO  B-FILE  AT  ENO  GO  TO  C-PEO. 
WRITE  H-UPTAPER  FROM  B-CARO. 

GO  TO  B-PEO. 

C-PEO. 

CLOSE  B-FILE  B-UPTAPE. 

OPEN  1-0  C-FILC  OUTPUT  C-UPTAPE 


531B1  GO  TO  PEO. 

CK-PZM . 

_ IF  PZ4  =  SPACE  IF  PZ3  =  SPACE _ 

IF  PZ2  =  SPACE  IF  PZl  =  SPACE 
MOVE  SPACE  TO  PZMPl  PZHP2  PZMP3  PZMP4 
i  ELSE  HOVE  PZl  TO  PZMP4  MOVE  SPACE  TO  PZMPl  PZHP2"  PZMP3 
«  ELSE  MOVE  PZl  TO  PZHP3  MOVE  PZ2  TO  PZMP4 
MOVE  SPACE  TO  PZMPl  PZMP2 

_ 4  ELSE  MOVE  PZl  TO  PZHP2 _ MOVE  PZ2  TO  PZHP3 _ 

MOVE  PZ3  TO  PZMP4  MOVE  SPACE  TO  PZMPl 
J  ELSE  MOVE  PZl  TO  PZMPl 

MOVF  PZ 2  TO  PZMP2  MOVE  P23  TO  PZMP3  MOVE  PZ4  TO  PZMP4. 
BCK-PZM. 

IF  PZ3  =  SPACE  IF  PZ 2  »  SPACE  IF  PZl  =  SPACE 
MOVE  SPACE  TO  PZMPl  PZMP2  PZMP3 
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01993  077200  31. _ 

01996  077210  IF  I10ARR  NOT  =  B3A  GO  TO  B7-R0. 

01995 _ IF  110C  NOT  »  N-B3  GO  TO  B7-RD. 

01996  077220  IF  B5BRR  NOT  -  I 100  GO  TO  B7-RD. 

01997  077230  IF  B5CRR  NOT  =■  I10E  GO  TO  B7-R0. 


02004  078060  IF  HOD  NDT  >  N-B3  GO  TO  B7-RD. 

02005  078QB0  GO  TO  BTA8-LK . 


138 


AEDC-TR-71-tOB 


1 


00041  002150  02  CUOC  '  PICTURE  XI5I.  "  '  CM000C36 

00042  002151  02  FILLER  PICTURE  XX. _ 

00043  002152  02  CUOCC  PICTURE  XXXX. 

00044  002153  02  FILLER  PICTURE,  _XXX.  _  _ 

00045  002154  02  CSIGC  PICTURE  XX XXX. 

00046  002160  _  02  FILLER  PICTURE  X[ 111  . _ 

00047  002161  02  ROUT. 

00048  002162 _ 03  ROT!  PICTURE  XX. _ 

00049  002163  03  R0T2  PICTURE  XXX. 

00050 _ 002164  03  RRT 2  _  RE0EFINE5  R0T2  PICTURE  999. 

00051  '  002165  “  02  "FILLER  "PICTURE  XI  10)7 

00052  002170  •  02  CCA8  PICTURE  XXXX. 

00053  “  002180  02  FILLER  PICTURE  X|6). 

00054  002181  02  CITEM  PICTURE  XXXX. 
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0005$  _002ia2_  02 _ FILLER  PICTURE  XI6). _ _ _ _ _ _ 

0005o  *  003010  FD  LISTT  RECOROING  F  BLOCK  1  RECOROS  RECORD  L33 

00057  00  3020 _ LABEL  RECOROS  STANDARO  OAT*  RECORD  LIT. 

00058  003030  01  LIT. 

JJ0059  003040  _ 02  _  FILLER  PICTURE  X(L33).  _  _ _ 

00060  003050  FO  OT-PAT  RECOROING  F  BLOCK  1  RECOROS  RECORD  L33  LABEL 

M061 _ 003060  _  RECOROS  STANOARO  OATA  RECORD  OPOUT. _ 

00062  003070  01  OPOUT  PICTURE  XI  1331. 

00063  003080  FO  OT-HK  RECORDING  F  BLOCK  1  RECOROS  RECORO  133  LABEL 

00064  003090^  RECOROS  STANOARO  OATA  RECORD  OHOUT. 

00065  _ 003100  01  OHOUT  PICTURE  XI133I. _  _  _ _ _ 

00066  FD  A-UPTAPE  RECOROING  F  BLOCK  1  RECORDS  RECORO  80 

00067 _ _ _ LABEL  RECOROS  STANDARO  OATA  RECORD  A-UPTAPER 

00068  of  A-UPTAPER  PICTURE  X(80>. 

00069 _ FO  A-F1LE _ RECOROING  F  BLOCK  45  RECOROS  RECORO  60 

00070  LABEL  RECOROS  STANOARD  OATA  RECORD  A-CARD. 


CH000036 

CM00QQ36 

CM000036 

CM000036 


00071 _  _ 01  A-CARO _ PICTURE _ X10OJ..  _  _ _ _  _  _ 

00072  004010  MORKING-STORAGE  SECTION.  CM000036 

00075 004020  77  PEJECT  PICTURE  99  COMPUTATIONAL -3  VALUE  51.  _  CHOOOQ36 

00074  004030  77  CABCNT  PICTURE  XXX  VALUE  SPACE. 

00075  004050  77  TSW1  PICTURE  9  VALUE  0. _ 1 _ , _ 

00076  004060  77  TSW2  PICTURE  9  VALUE  0. 

00077  004070  77 TSH3 _ PICTURE  9  VALUE  0. _ _ _ _  _  _ 

00078  004080  77  TSH4  PICTURE  9  VALUE  0. 


00079 

004090  77 

I 

PICTURE  999 

VALUE  0. 

00080 

004091  77 

J 

PICTURE  9 

VALUE  0. 

00081 

004092  77 

K 

PICTURE  S999  VALUE  0. 

00082 

004110  01 

LtSTM. 

CM000036 

00083 

004120 

02 

LCC 

PICTURE 

X. 

CN000036 

'00084 

004130 

02 

FILLER2 

PICTURE 

XI 1271. 

CM000036 

00085 

004140 

02 

FILLER 

PICTURE 

XI  SI  VALUE  SPACE. 

CM000036 

00086 

005010  01 

CAB 

-LINE. 

CM000036 

00037 

005020 

02 

FILLER 

PICTURE 

XI 61)  VALUE  •  CAB 

FROM 

0008  a 

005030- 

« 

TD 

M1RE0  '. 

00089 

005031 

02 

FILLER 

PICTURE 

XI 9)  VALUE  '  ITEM*. 

00090 

005040 

02 

FILLER 

PICTURE 

XI 63)  VALUE  SPACE. 

00091 

005050  01 

FAB 

-LINE. 

CMOOOO  36 

00092 

005060 

02 

FILLER 

'  picture- 

XI 60)  VALUE  •  FAB 

TRANSDUCER 

00093 

005070- 

i 

OEVICE 

POINT  S.C.  '. 

00094 

005071 

02 

FILLER 

PICTURE 

XI 8)  VALUE  1  NO1. 

00095 

005080 

02 

FILLER 

PICTURE 

X 1 65J_ .  _VALUE_  SPAC E  . 

00096 

005090  01 

CA8-HEA0. 

CM000036 

00097 

005100 

02 

FILLER 

PICTURE 

XI 39)  VALUE  * 

00098 

0C5110— 

•  CABLE  FABS*  . 

00099 

0C5120 

02 

FILLER 

PICTURE 

XI 94 1  VALUE  SPACE. 

00100 

005130  01 

CAB 

-LIST. 

CM000036 

00101 

005140 

02 

FILLER 

PICTURE 

XI 9 1  VALUE  SPACE. 

CM000036 

00102 

005150 

02’ 

LCAB 

PICTURE 

XXXX. 

0010  3 

005160 

02 

FILLER 

PICTURE 

XI 6)  VALUE  SPACE. 

_  _ CM000036 

00104 

005161 

02 

LPAR 

PICTURE 

X 1 9) . 

00L05 

005162 

02 

FILLER 

PICTURE 

XXXX  VALUE  SPACE. 

00106 

005170 

02 

LOEV 

PICTURE 

XI 9  1  . 

CM000036 

00107 

005180 

02 

FILLER 

PICTURE 

XXX  VALUE  SPACE. 

00108 

005190 

02 

LPT 

PICTURE 

XI 7 ) . 

CM000036 

00109 

005200 

02 

FILLER 

PICTURE 

XI 5 )  VALUE  SPACE. 

CMOOOO 3 6 

00110 

0052 ID' 

02 

LUOC 

PICTURE 

XI5)  VALUE  SPACE. 

CMOOOO  36 

00111 

0052U 

.02.. 

FILLER 

PICTURE 

XI 6)  VALUE  SPACE. 
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00112 

00113 

00114 

005212 
005220 
006010  01 

02  L ITEM 

02  FILLER 
AOUT-PRT. 

PICTURE  XXXX. 

PICTURE  XI 63 1  VALUE  SPACE.'  ' 

CM000036 

00115 

006020 

02 

FILLER 

PICTURE 

XI 7 )  VALUE  SPACES. 

CM000036 

00116 

006030 

02 

FILLER 

PICTURE 

XI 16 )  VALUE  'C 

CHOO0036 

00117 

006040 

02 

FILLER 

PICTURE 

XI 121  VALUE  'FROM 

TO*. 

CM000036 

00118 

006050 

02 

FILLER 

PICTURE 

XI48)  VALUE  SPACE. 

CM000036 

00119 

006060 

02 

FILLER 

PICTURE 

XI 5  0)  VALUE  <C 

FROM 

-  CM000036 

00120 

006070- 

•  TO 

CM000036 

00121 

OO6080  01 

A AOUT-PRT. 

CM000036 

00122 

006090 

02 

FILLER 

PICTURE 

XI 23 )  VALUE  •  ITEM  C 

DEVICE 

• .  CM000036 

00123 

006100 

02 

FILLER 

PICTURE 

XUS)  VALUE  'POINT 

POINT*  . 

CM000036 

00124 

006110 

02 

FILLER 

PICTURE 

XI 39 1  VALUE  SPACE. 

CM000036 

00125 

006120 

02 

FILLER 

PICTURE 

XI 5 6)  VALUE  'ITEM  C 

DEVICE  P01NCM000036 

00126 

006130- 

•  T 

POINT 

CM000036 

00127 

007010  01 

OOUT-PRT . 

CM000036 

00128 

007020 

02 

FILLER 

PICTURE  X ( 27 1  VALUE  ■  PARAMETER  C 

NOMENCLATURE 

* • CM000036 

00129 

007030 

02 

FILLER 

PICTURE  X I 26 )  VALUE  1 

1-NO.  DEVI 

'.  CM000036 

00130 

007040 

02 

FILLER 

PICTURE  XI 26)  VALUE  'CE  POINT 

S.C.  CARO 

'.  CM000036 

00131 

007050 

02 

FILLER 

PICTURE  XI 26)  VALUE  •  CONO.  CQND.  READOUT 

• .  CM000036 

00132 

007060 

02 

FILLER 

PICTURE  XI26)  VALUE  1  NO.  FAS 

SK.  NO  C 

'.  CM000036 

00133 

0  0  70  7  0 

02 

FILLER 

PICTURE  XI 2)  VALUE  •  '. 

CM000036 

00134 

007080  01 

COUT-PRT. 

' 

CM000036 

00135 

007090 

02 

FILLER 

PICTURE  XI 27 1  VALUE  1  C 

■ • CM000036 

00136 

007100 

02 

FILLER 

PICTURE  X 126 )  VALUE  • 

TRAN 

'.  CM 000036 

00137 

007110 

02 

FILLER 

PICTURE  XI 26)  VALUE  'CONNECTING 

WIREO  UDC 

*.  CM000036 

00138 

007120 

02 

FILLER 

PICTURE  XI 261  VALUE  •  SIG.  SIG. 

'.  CM000036 

00139 

007130 

02 

FILLER 

PICTURE  X126)  VALUE  •  TYP  CAB 

LOC  ITEM  C 

'.  CM000036 

00140 

007140 

02 

FILLER 

PICTURE  XX  VALUE  SPACE. 

CM00Q036 

00141 

007150  01 

GOUT-PRT. 

00142 

007160 

02 

FILLER 

PICTURE  XI34I  VALUE  • 

PATCHING  -  PB1 

00143 

007170- 

« 

00144 

0071B0 

02 

FILLER 

PICTURE  XI  45)  VALUE  SPACE. 

00145 

007190 

02 

FILLER 

PICTURE  X(31)  VALUE  1  PATCHING  -  P82 

00146 

007200- 

« 

00147 

007210 

02 

FILLER 

PICTURE 

XI 22 1  VALUE  SPACE. 

00148 

007220  01 

FOUT-PRT. 

00149 

C07230 

02 

FILLER 

PICTURE  XI 54)  VALUE  SPACE. 

00150 

007240 

02 

FILLER 

PICTURE  X 1 25)  VALUE  '  HOOKUP  INFORMATION 

00151 

007250 

02 

FILLER 

PICTURE 

XI 54 )  VALUE  SPACE. 

00152 

01 

lister. 

00153 

02 

FILLER 

PICTURE 

XI 117) . 

00154 

02 

ILLER4 

PICTURE  XX. 

00155 

02 

FILLER 

PICTURE 

XX. 

00156 

02 

ILLER3 

PICTURE 

XX. 

00157 

02 

FILLER 

PICTURE 

xxxx. 

00158 

02 

ILLER2 

PICTURE 

xx. 

00159 

02 

FILLER 

PICTURE 

X. 

00160 

02 

ILLERl 

PICTURE 

.  XXX. 

00161 

008010  01 

TABLES. 

00162 

008020 

02 

TB1  OCCURS  4. 

00163 

008030 

03  TP 

PICTURE  X 1 9)  OCCURS  100. 

00164 

008040 

03  71 

PICTURE  XI 4)  OCCURS  100. 

00165 

008050 

03  TA 

PICTURE  913)  OCCURS  100. 

00166 

008060  01 

DHEAD1. 

00167 

008061 

02 

FILLER 

PICTURE 

XI4)  VALUE  SPACE. 

00168 

00  80  7  0  . 

02 

FILLER 

PICTURE  XI73)  VALUE  1  MICROSADIC  REFERENCE 

SHE  . 
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0016? 

bond 

00171 

00172 

00173 

00174 

00175 

00176 

00177 

0017S 


006080- _ '  ET _  _ 

008090  02  FILLER 

008100  01  DHEA02. 


PROJECT _ SHEET 

PICTURE  X< 55 )  VALUE  SPACE. 


008101 

ooano 

008120 

008130 

008140 

008150 

008160 


FILLER  PICTURE  X(4)  VALUE  SPACE. 

FILLER  PICTURE  XI6I  VALUE  '  SCAN*. 
FILLER  PICTURE  XI 191  VALUE  SPACE. 

FILLER  PICTURE  X(4)  VALUE  1 ITEH1 . 

FILLER  PICTURE  XI 29)  VALUE  SPACE. 

FILLER  PICTURE  XI4I  VALUE  »AHP.‘. 

FILLER  PICTURE  XI 56 1  VALUE  SPACE. 


0017? _ OOSITjOjOl  DHEA03.  _ 

00180  008171  02  FILLER 

00181  008180  02  FILLER 

00132  008190-  •  CAL 

00183  008200  02  FILLER 


00134  009010  01  OCLIST . 

00902 


FILLER  PICTURE  XI4)  VALUE  SPACE. 
FILLER  PICTURE  XI73>  VALUE  '  SEQ._ 


PARAMETER 


■  CAL  STEP  COUNTS 

02  FILLER  PICTURE  XI55I 


FILLER  PICTURE 


NO.  REMARKS'. 
VALUE  SPACE.  _ 


VALUE  SPACE 


00186  009030  02  OGSS  PICTURE  999. 

00187  009040  02  FILLER  PICTURE  XI6)  VALUE  SPACE. 


00133  009050  "  02  DGPAR  PICTURE  X19). 

00189  009060  02  FILLER  PICTURE  XI  SI  VALUE  SPACE. 


00190  009070  02  OGIT  PICTURE  XI4). 

00191  009030  02  FILLER  PICTURE  XI 291  VALUE  SPACE. 

00192  009090  02  OGAM  PICTURE  999. 

00193  009100  02  FILLER  PICTURE  XI67)  VALUE  SPACE. _ 

00194  **008010  PROCEDURE  OIVISION. 

00195  008020  8EGP. 


3  008023 

9  00  3024 _ MOVE  2  TO  J _ •_  _ 

00802S  MOVE  399  TO  K 
008026  PERFORM  OOTAB  VARYING  I  FROM  l  8Y  1  UNTIL  1  -  101 


008021  MOVE  l  TO  J. 

_ 008022  _ MOVE  -1  TO  K. _ _ 

PERFORM  OOTA8  VARYING  l 'FROM  "l  BY  l  UNTIL  I 


CH000036 

CM000036 


00222  008120  WRITE  LIT  FROM  AOUT-PRT  AFTER  2 

00223 _ 008130  WRITE  LIT  FROM  AAOUT-PRT  AFTER  1 

00224  003140  MOVE  0  TO  PEJECT. 

QQZ2i.__.  00*150 _ fin  XaJtttOdt. 


CM000036 

CM000036 

CM000036 

£8000026 
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00226 

008160  8EGH. 

CM000036 

CM000036 

00227 

00229 

00B170 

008171 

CLOSE  PAT-IN.  MOVE  51  70  PEJECT. 

CLOSE  OT-PAT  OPEN  OUTPUT  OT-HK. 

00229 

008180 

OPEN  INPUT  HK-IN.  GO  TO  H-JECT. 

CM000036 

00230 

008190  READ-H. 

CM000036 

00231 

008200 

REAO  HK-IN  AT  ENO  GO  TO  BEGLH. 

CM000036 

00232 

008210 

MOVE  ALL-H1N  TO  LISTER. 

00233 

008211 

MOVE  SPACE  TO  ILLER1  1LLER2  1LLER3  ILLER4. 

00234 

008220 

WRITE  LIT  FROM  LISTER  AFTER  2. 

00235 

008221 

WRITE  OHOUT  FROM  H1N. 

00236 

008230 

AOO  2'  TO  PEJECT. 

CM000036 

00237 

009010  H- 

-JECT. 

CM000036 

00238 

009020 

IF  PEJECT  >  50  WRITE  LIT  FROM  FOUT-PRT  AFTER  0 

CM000036 

00239 

009030 

WRITE  LIT  FROM  COUT-PRT  AFTER  2 

'  CM000036 

00240 

009040 

WRITE  LIT  FROM  OOUT-PRT  AFTER  1 

CM000036 

00241 

009050 

MOVE  0  TO  PEJECT. 

CM000036 

00242 

009060 

GO  TO  REAO-H. 

CM000036 

00243 

009070  BEGLH. 

CM000036 

00244 

009080 

CLOSE  HK-IN. 

CM000036 

00245 

009081 

CLOSE  OT-HK. 

00246 

009090 

OPEN  INPUT  SHK-IN. 

CM000036 

00  247 

MOVE  51  TO  PEJECT.  GO  TO  L-JECT. 

00248 

009120  READ-L. 

CM000036 

00249 

009130 

REAO  SHK-IN  AT  END  GO  TO  EOF. 

CM000036 

00250 

009131 

PERFORM  OGTAL  THRU  OEX. 

00251 

009140 

IF  CCA8  =  SPACE  GO  TO  READ-L. 

CM000036 

00252 

009150 

HOVE  CCAB  TO  LCA8. 

CM000036 

00253 

009151 

MOVE  CPAR  TO  LPAR. 

00254 

009152 

MOVE  CITEH  TO  LITEM 

* 

00255 

009160 

HOVE  COEV  TO  LOEV. 

CM000036 

00256 

009170 

MOVE  CPT  .  TO  LPT. 

CM000036 

00257 

009180 

MOVE  CUDC  TO  LUOC. 

CM000036 

00258 

009181 

IF  CUOC  -  SPACE  MOVE  CSIGC  TO  LUOC. 

00259 

009190 

WRITE  LIT  FROM  CA8-LIST  AFTER  2. 

CM000036 

00260 

0092  0  0 

AOO  2  TO  PEJECT. 

CM000036 

00261 

009210  L- 

-JECT. 

CM000036 

009220 

IF  PEJECT  >  50  WRITE  LIT  FROM  CAB-HEAO  AFTER  0 

CM000036 

00263 

009230 

WRITE  LIT  FROM  CAB-LINE  AFTER  2 

CM000036 

00264 

009240 

WRITE  LIT  FROM  FAB-LINE  AFTER  1 

CM000036 

00265 

009250 

MOVE  0  TO  PEJECT.  GO  TO  READ-L. 

CM000036 

00266 

010010  EOF. 

_ CHOP 0036 

00267 

OPEN  1-0  A-FILE.  OPEN  OUTPUT  A-UPTAPE. 

00268 

A- 

-PED. 

00269 

REAO  A-FILE  AT  ENO  GO  TO  A-PEOENO. 

00270 

WRITE  A-UPTAPER  FROM  A-CARO. 

00271 

GO  TO  A-PEO. 

00272 

A- 

-PEDENO. 

00273 

014 

PERFORM  TAKOUT  THRU  TEX 

00274' 

CLOSE  A-FILE  A-UPTAPE. 

00275  **010020 

CLOSE  SHK-IN  LISTT.  . 

CM000036 

00276 

010030 

STOP  RUN. 

CM000036 

00277 

011010  DGTAL. 

00278 

011020 

IF  R0T1  NOT  =  'MC'  GO  TO  OEX. 

00279 

011030 

IF  RRT 2  <  100  GO  TO  0G100. 

00280 

011040 

IF  RRT 2  <  200  GO  TO  0G200. 

011050 

IF  RRT2  <  400  GO  TO  OG400. 

00282 

011060 

IF  RRT2  >  499  GO  TO  OG500.  MOVE  2  TO  J  MOVE  0  TO  I. 
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00283 _ 01 1070_ _ PERFORM  INTB  THRU  INX.  HOVE  4  TO  J  HOVE  0  TO  1. 


00284  011080  PERFORM  LNTB  THRU  INX. 

00285  011000  MOVE  1  TO  TSH2  T5H4. 


00286 

00287 

011100 

011110 

GO  TO  OEX. 

INTB.  AOO  1  TO  I. 

00288 

011120 

IF  I  >  100  OISPLAY  'mOO*  GO  TO  INX. 

00289 

011130 

IF  TA  <J.  11  ■  RRT2  HOVE  CPAR  TO 

TP  IJ. 

1 1 

00290 

011140 

MOVE  C1TEM  TO  TI  IJ.  II  GO  TO 

INX. 

■'T'Hja 

011150 

GO  TO  INTB. 

00292 

011160 

INX.  EXIT. 

00293 

011170 

0G100. 

* 

00294 

011180 

HOVE  0  TO  I.  MOVE  1  TO  J.. 

00295 

011190 

PERFORM  INTB  THRU  INX.  MOVE  1  TO 

TSUI. 

00296 

011200 

GO  TO  OEX. 

00297 

011210 

0G200 . 

00298 

011220 

MOVE  0  TO  I.  MOVE  3  TO  J. 

00299 

011230 

PERFORM  INTB  THRU  INX. 

00300 

011240 

HOVE  1  TO  TSU3. 

00301 

011250 

GO  TO  OEX. 

00302 

012010 

0G400. 

00303 

012020 

OISPLAY  • 200<RTT2<400 * 

00304 

012030 

GO  TO  OEX. 

00305 

012040 

0G500  . 

00306 

012050 

OISPLAY  'REAOOUT  TOO  LARGE*. 

00307 

012060 

OEX.  EXIT. 

00308 

013010 

TAKOUT. 

00309 

013020 

MOVE  0  TO  X. 

00310 

013030 

MOVE  I  TO  J. 

00311 

013040 

IF  TSUI  -  1  PERFORM  UHOS 

00312 

013050 

PERFORM  HTAB  VARYING  I  FROM  l 

BY  1  UNTIL  I  >  100. 

00313 

013060 

IF  TSU2  NOT  -  1  GO  TO  CKSM3. 

00314 

013070 

IF  TSUI  NOT  -  I  GO  TO  CKSU3. 

00315 

013080 

IF  TSU3  NOT  >  1  GO  TO  CKSU4. 

00316 

013090 

MOVE  2  TO  J. 

00317 

013100 

PERFORM  UHOS. 

00318 

013110 

PERFORM  UTAB  VARYING  I  FROM  l  BY  1 

UNTIL 

I  >  too. 

00319 

013120 

CKSM3. 

00320 

013130 

MOVE  3  TO  J 

00321 

013140 

IF  TSU3  =  1  PERFORM  UHOS 

00322  013150  PERFORM  MTAB  VARYING  I  FROM  l  BY  L  UNTIL  I  >  100. 

00323  013160  CKSH4.  _  _ 

00324  0131  TO  MOVE  4  TO  J 

00325  013180  _  _IF_TSH4  =  l  PERFORM  WHOS_  _ 

00326  C13190  PERFORM  MTAB  VARYING  I  FROM  i  BY  1  UNTIL  I  >  100. 

00327  013200  TEX. _ 

0032B  013210  EXIT. 

00329  013220  MTAB.  _  _  _ 

00330  013230  ADO  1  TO  K. 

0033l_  013240  MOVE  K  TO  OGSS_;_ 

00332  014050  IF  PEJECT_'=  25  PERFORM  MHOS. 


00333 

**013250 

MOVE  TA  (J.  I  1 

TO  OGAM. 

00334 

014010 

MOVE  TP  IJ,  II 

TO  OGPAR. 

00335 

014020 

MOVE  TI  IJ,  II 

TO  OGIT. 

00336 

014030' 

HR  ITE  Llf  FROM 

OGL 1ST  AFTER 

*2  • 

00337 

014040 

ADO  1  TO  PEJECT 

00338 

014060  UHOS. 

00339. 

.  014070  . 

URITE  LIT  FROM 

OHEAOl  AFTER 

0.  . 
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00340  014080 
00341  014090 
00342  014100 


WAITE  LIT  FROM  DHEA02  AFTER  2_. 
WRITE  LIT  FROM  DHEA03  AFTER  1. 
MOVE  0  TO  PEJECT. _ 
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00001 

00002 

00101 

00102 

IDENTIFICATION  C 
PROGRAM-ID.  'CMC 
AUTHOR."  ROSE.  ' 
DATE-WRITTEN.  FE 

II VISION.  ' 

100085 '. 

CM 000085 
CM0000B5 
CH000085 

00003 

00004 

00103 

001031 

B,  1968. 

OOOOS 

00006 

00007 

OOOOS 

00009" 

00010 

001032 

00104 

DATE-COMPILED. 
ENVIRONMENT  DIVI 
CONFIGURATION  S! 
SOURCE-COMPUTER 
"OBJ  ECT-COMPUT ER 
INPUT-OUTPUT  SEE 

IAN  23,1970 

SION. 

CH0000B5 

00105 
00106* 
00107  " 
00108 

■CTION. 

ISM-360. 

IBM-360." 

,TION. 

-  -  -  - 

-  — 

CM00Q085 
CM000085 
"'  CM000085 
CM000085 
CM000085 
CM000085 

00011 

00012 

00109 

00112 

FILE-CONTROL. 

SELECT  I-FILE  ASSIGN  M0011 

UTILITY. 

00013 

00014 

00113 

00114 

SELECT  A-FILE  ASSIGN  •AOOl' 
SELECT  8-FILE  ASSIGN  *8001* 

UTILITY. 

UTILITY. 

CM000085 

CM000085 

CM000085 

CM000085 

00013 
00016 
00017" " 
00018 

00115 

00116 

SELECT  C-FILE  ASSIGN  'C001 ' 
SELECT  A— WORK  ASSIGN  'AU01 1 

UTILITY. 

UTILITY. 

00117 

00118 

SELECT  8-HORK  ASSIGN  'BUOl' 
SELECT  C-MORK  ASSIGN  'CM011 

UTILITY. 

UTILITY. 

* 

CM000085 

CM0000B5 

00019 

00119 

SELECT  HOOKUP  ASSIGN  'H001' 

UTILITY. 

00020 

00120 

SELECT  PATCH  ASSIGN  •P001> 

UTILITY. 

CHO 00085 

00021 

00121 

SELECT  W-HOOK  ASSIGN  'HHOl' 

UTILITY. 

CH000085 

00022 

00122 

SELECT  N-PATH  ASSIGN  'WP01' 

UTILITY. 

CM000085 

00023 

00124 

SELECT  HK-OUT  ASSIGN  '0H01  • 

UTILITY. 

CM0000B5 

00024 

00125 

SELECT  PT-OUT  ASSIGN  '0P01' 

UTILITY. 

CM0000B5 

00025 

00126 

DATA  DIVISION. 

CM000085 

00026 

00127 

FILE  SECTION. 

CN000085 

00027 

00201 

FO  I-FILE  RECOROING  F  BLOCK  l 

RECOROS  RECORO 

80  LABEL 

CM000085 

00026 

00202 

RECORDS  OMITTEO  DATA  RECOROS  I-CARD  A-CARO 

S-CARO  C-CARO 

CM000085 

00029 

002021 

O-CARO. 

CN000085 

00030 

00203 

01  O-CARO. 

CM0000B5 

00031 

00204 

02  OPTN 

PICTURE  Xf 71 . 

CM0000B5 

00032 

00206 

02  FILLER 

PICTURE  XI 73 ) . 

CN0000B5 

00033 

00213 

01  I-CARO. 

CM000085 

00034 

00214 

02  OELPARN 

PICTURE  XI 9) . 

CM0000B5 

00035 

00215 

02  FILLER 

PICTURE  XI 711 • 

CM0000B5 

00036 

00301 

01  A-CARD. 

CM000085 

00037 

00302 

02  A10 

PICTURE  XXXX. 

00038 

00303 

.  02  A20 

PICTURE  9. 

CM000085 

00039 

00304 

02  FILLER 

PICTURE  XI 75 1 • 

00040 

00305 

01  8— CARO. 

CM000085 

00041 

00306 

■02  BIO 

PICTURE  XXXX. 

CM0000B5 

00042 

00307 

02  820 

PICTURE  9. 

CM 000085 

00043 

00308 

02  830 

PICTURE  XI 65) . 

CM0000B5 

00044 

00309 

02  B100 

PICTURE  XI 9)  • 

CM000085 

00045 

00310 

02  B110 

PICTURE  X. 

CM000085 

00046 

00312 

01  C-CARO. 

CM000085 

00047 

00313 

02  CIO 

PICTURE  X 1 41 } . 

CM000085 

00048 

00314 

02  C40 

PICTURE  XI6). 

CH0000S5 

00049  , 

00315 

02  C50 

PICTURl  XI 33 ) . 

CN000085 

00050 

00401 

FO  A-FILE 

RECOROING  F  BLOCK  45  RECOROS  RECORO  80 

00051 

00402 

LABEL  RECOROS  STANDARD  OATA  RECORO 

AIN. 

CN000085 

00403 

01  AIN. 

CN000085 

00053 

00404 

02  A1 

PICTURE  XXXX. 

0005 4 _ 

.00*05  _ 

._.-PZ._AZ _ 

.flams _ Xw 

CMOOOOBS 

I 
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00055 

00406 

02 

A3  PICTURE  XI75I. 

00056 

00057 

00408 

00409 

FO 

’8-F 

TUI  RECORDING T  BLOCK  45  RECORDS  RECORO  80 

LABEL  RECOROS  STANOARD  OATA  RECORD  BIN. 

CN000085 

00058 

00410 

01 

Tin 

• 

£¥000085' 

00059 

00411 

02 

61  PICTURE  XXXX. 

CM000085 

00060 

00412 

02 

82  PICTURE  9l 

CN000085 

00061 

00413 

02 

83  PICTURE  XI65I. 

CN000085 

00062 

T0O414 

02 

BIO  PICTURE  X<  9 1 . 

CN000085 

00063 

00415 

02 

ail  PICTURE  X. 

CN000085 

00064 

00417 

PO 

C-FILE  RECORDING  F  BLOCK  45  RECOAOS  RECORO  80 

00065 

00418 

LABEL  RECOROS  STANOARO  DATA  RECORD  CIN. 

CH000085 

00066 

00419 

01 

CJN 

• 

CM000085 

00067 

00420 

02 

Cl  PICTURE  XI 23 1  • 

CNOOO085 

00068 

00421 

02 

C2  PICTURE  X( 9 1  • 

CN000085 

00069 

00422 

02 

C3  PICTURE  XI9). 

CN000085 

00070 

00423 

02 

T4  PICTURE  XT6T.  , 

CN000085 

00071 

00424 

02 

C5  PICTURE  XI33I. 

CN000085 

00072 

00501 

Eo 

HOOKUP  RECORO ING  F  BLOCK  l  RECOROS  RECORO  133 

CN000085 

00073 

00502 

LABEL  RECOROS  STANOARD  OATA  RECORO  HOK. 

CM000085 

00074 

00503 

01 

HOK 

• 

CN000085 

00075- 

00504 

02 

HI  PICTURE  X. 

CN000085 

00076 

00505 

02 

H2  RfCfuRE  XI9». 

CN000085 

00077 

00506 

02 

H3  PICTURE  X 1 1 13 ) . 

00078 

.  00507 

02 

H4  PICTURE  XXXX. 

CN000085 

00079 

00508 

02 

H5  PICTURE  XI  6». 

CN000085 

00080 

00510 

T5~ 

PATCH'  RECORO  ING  "F  8L0CK~  t  RECORDS  RECORO  133 

CN000085 

00081. 

00511 

LABEL  RECOROS  STANDARD  OATA  RECORO  PAT. 

CM000085 

ooos~2 

005T2 

T5l 

TXT 

• 

CN000085 

00083 

00513 

02 

PI  PICTURE  X. 

CN000085 

0b084 

00514 

02 

P2  PICTURE  XXXX. 

CM000085 

00085 

00515 

02 

P3  PICTURE  X 1 72 1 . 

CN000085 

00086 

00516 

02 

~P4  PICTURE  XXXX* 

'  CH000085 

00087 

00517 

02 

P5  PICTURE  XI 52 1  . 

CM000085 

"WOBB 

—'00'60T  Ftf~ 

"U-HOOK  RECORDINGS  BLOCKT"  RECORDS  “RECoRD“l'33  - 

CN00008S 

00089 

00602 

LABEL  RECOROS  STANDARD  OATA  RECORO  HHOK. 

CM000085 

0O09O 

00603 

ol 

HHOK. 

CH000085 

00091 

00604 

02 

HH1  PICTURE  X. 

CH000085 

00092 

00605“ 

02 

HH2  PICTURE  X(9| • 

cmDooosS 

00093 

00606 

02 

WH3  PICTURE  XI 113 ) . 

CH0000B5 

00094 

oo'SO'T- 

61 

HH4  PICTURE (XXX. 

CHOObOSS- 

00095 

00608 

02 

WHS  PICTURE  X ( 61  . 

CM0000B5 

00096 

00610 

FO 

H-PATH  TETraWOlNGT — BLOCKT — RECORDS  RECORD  133 - 

£ho00ob5 

30097 

00611 

LABEL  RECORDS  STANOARD  OATA  RECORD  HPAT. 

CH000085 

00098 

00612 

01 

Vi  PAT. 

CH000085 

00099 

00613 

02 

HP1  PICTURE  X. 

CH000085 

00100 

00614 

02 

WP2  PICTURE  XXXX. 

CN000085 

00101 

00615 

02 

HP 3  PICTURE  XI72I. 

CH000085 

00102 

00616 

02 

HP 4  PICTURE  XXXX. 

£*000085 

00103 

00617^ 

02 

UPS  PICTURE  XI 48 1 . 

00104 

00618 

\ 

02 

HP  6  PICTURE  XXXX. 

00105 

00701 

FO 

HK- 

OUT  RECOROING  F  BLOCK  1  RECORDS  RECORO  133 

CN000085 

00106 

00702 

LABEL  RECORDS  STANOARO  DATA 'RECORD  OHOK. 

CN000085 

00107 

00703 

01 

OHOK. 

CM000085 

00108 

00704 

02 

OKI  PICTURE  X. 

CH000085 

00109 

00705 

02 

0H2  PICTURE  XI?) . 

CN00008  5 

00110 

00705 

02 

0H3  PICTURE  XI 113 1 . 

CM0000S5 

OOlll 

00707 

02 

0H4  ..  PICTURE  JCXXX.  . 

. .CN000085 
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00112 

007oa 

02  OHS  PICTURE  X<6). 

CM000085 

00Vl3 

"00710 

"  FD 

PT-OUT  recording  f  block 

1  RECOROS 

RECORD 

133 

CM000085 

00114 

00711 

LABEL  RECORDS  STANOARO 

OATA  RECORD 

DP  AT  . 

CM000085 

00115  ' 

00712 

‘  01  " 

OP AT.  - 

CM000085 

00116 

00713 

02  0P1  PICTURE  X. 

CM000085 

ooii? 

00714 

02  0P2  PICTURE  XXXX. 

CM000085 

00118 

00715 

02  0P3  PICTURE  XI72I. 

CM000085 

ooii.9  " 

00716 

32  0P4  PICTURE  XXXX. 

CM000085 

00120 

00717 

02  OPS  PICTURE  XI 52 1  . 

CM000085 

00121 

00801 

FD 

A-WORK  RECOROING  F  BLOCK 

45  RECORDS 

RECORD 

'so 

00122 

00802 

LABEL  RECOROS  STANOARO 

DATA  RECORD 

AWRK  . 

CM000085 

00123 

00803 

01 

AHRK. 

CM000085 

001‘24 

00804 

02  AIN  PICTURE  XXXX. 

00125 

' 00805 

02  A2N  PICTURE  9. 

CM 000085 

00126 

00806 

02  FILLER  PICTURE  XI 75). 

00127 

ooaoa 

— fS"“ 

6-WORK  ■  RECORDING  F  BLOCK 

"45"  RECORDS  “ 

RECORD 

ao 

00128 

O0B09 

LABEL  RECOROS  STANDARD  DATA  RECORD  BURK. 

CM000085 

00129 

ooaio 

01 

BURK. 

CM000085 

00130 

ooau 

02  BIN  PICTURE  XXXX. 

CM000085 

00131 

00812 

02  B2W  "  PICTURE  9. 

CM000085 

00132 

00813 

02  83H  PICTURE  XI65I. 

CM000085 

00133 

'  00814 

02  B10W  ‘"  PICTURE"  XI 91. 

'  CM000085 

00134 

00815 

02  BUN  PICTURE  X. 

CM000085 

00135  “ 

"ooal7 

~F0" 

C-HORK  RECOROING  F  BLOCK 

45_REC0RDS‘  i 

RECORD 

BO  ■ 

CMboooa 

00136 

00818 

LABEL  RECOROS  STANOARO  OATA  RECORD  CWRK. 

CM000085 

'  00137" 

00819 

~  01 

CWRK. 

CM000085 

0013S 

00820 

02  C1W  PICTURE  XI 23 1 • 

CM000085 

“  00139 

00321 

02  C2W  PICTURE  XI9). 

'CM000085 

00140 

00822 

02  C3N  PICTURE  XI9I. 

CMOOOOB5 

00141 

00823 

02  C4W  PICTURE  XI 61. 

CM000085 

00142 

00824 

02  C5H  PICTURE  XI331 . 

00143 

01001 

WORKING-STORAGE  SECTION. 

CM000085" 

00144 

01002 

77 

AA-SN  PICTURE  9  VALUE  0. 

CM000085 

"00145  " 

01003 

77 

A-SW  PICTURE  9  VALUE  0. 

CM000085 

00146 

01004 

77 

A-CNT  PICTURE  XXXX  VALUE  SPACE. 

00147 

01005 

77 

ENO-SW  PICTURE  9  VALUE  0. 

CM000085 

00143 

01006 

77 

AB-SU  PICTURE  9  VALUE  0. 

CM000085 

00149  ' 

01007 

77 

8-CNT  PICTURE  XXXX  VALUE  SPACE. 

CM000085 

00150 

oiooa 

77 

AC-SM  PICTURE  9  VALUE  0. 

CMOOOOB5 

00151 

01009 

77 

C-CNT  PICTURE  XI6J  VALUE  SPACE. 

'■  CM000085 

00152 

01501 

PROCEOURE  DIVISION. 

CM000085 

00153  " 

01502 

OPEN  INPUT  HOOKUP  PATCH. 

CM0000B5 

00154 

01503 

OPEN  OUTPUT  U-HOOK  H-PATH. 

CMOOOOB5 

■'  00155 ' 

01504 

OISK-HK. 

CM000035 

00156 

01505 

REAO  HOOKUP  AT  END  GO  TO  DISKH, 

CM0000B5 

00157 

01506 

write  whok  from  hok.' 

CH003035 

00158 

01507 

GO  TO  OISK-HK. 

CM000035 

00159"  " 

01508 

01SKH. 

■  CM00008  5 

00160 

01509 

CLOSE  HOOKUP  W-HOOK. 

CM000085 

0016V 

'  01510 

OISK-PT. 

CM0000B5 

00162 

01511 

REAO  PATCH  AT  ENO  GO  TO  DISKP. 

CM000085 

00163 

01512 

■WRITE  HPAT  FROM  PAT. 

CM 000085 

00164 

01513 

GO  TO  OISK-PT. 

CM0000B5 

00165 

01514 

DISKP. 

CM000085 

00166 

01515 

CLOSE  PATCH  W-PATH. 

CH000035 

00167 

01516 

OPEN  1-0  A-FILE  B-FILE  C-FILE. 

CM0D0035 

00168 

01517 

OPEN  INPUT  I-FILE. 

CM030095 
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00169 

01519 

"  RE AO  I-FILE  AT  ENO  GO  TO  IA1N0. 

CM00008  5 

00170 

01520 

fF  OPTN  »  •OELETEA*  GO  TO  OELETE-A. 

CMOOOOB5 

00171 

01521 

IF  OPTN  »  1 AOOA  •  GO  TO  AOO-A. 

CM000085 

85172” 

81522 

TF  oPtn  « ydelEtTTb •  GO  to  oelTTe-b. 

'  CMO00085 

00173 

01523 

IF  OPTN  »  1 AOOB  •  GO  TO  AOO-B. 

CM000085 

00174 

01524 

IF  OPTN  =  ’DELETEC1  GO  TO  OELETE-C. 

CNO 00085 

00175 

01525 

IF  OPTN  =  • AOOC  •  GO  TO  AOD-C. 

CM00008  5 

00176 

01601 

IF  OPTN  »  • OELETEP'  GO  TO  OELETE-P. 

CM000085 

00177 

01602 

IA1N0. 

CM00008  5 

OOlYS" 

01603 

01  SPLAY  *Nb  HEAOER  CAROS'. 

CM0000B5 

00179 

01604 

STOP  RUN. 

CMOOOOB5 

00180 

01605 

OELETE-A. 

CM00008  5 

00181 

01606 

REAO  I-FILE  Al  ENO  GO  TO  IA1N0. 

CM000085 

00182 

01607 

IF  OPTN  »  ' AOOA  1  CLOSE  A-FILE  OPEN  1-0  A- 

■FILE 

CM000085 

00183 

01608 

GO  TO  AOO-A. 

CM0000S5 

00184 

01609 

IF  OPTN  »“*bELETEB'  GO  TO  OELEf 1-8 . 

CM000085 

00185 

01610 

IF  OPTN  =  'AOOB  •  GO  TO  ADO-B. 

CM000085 

00186 

01611 

IF  OPTN  «  'DELETES*  GO  TO  OELETE-C. 

CM000085 

00187 

01612 

IF  OPTN  -  * AOOC  •  GO  TO  AOO-C. 

CM000085 

00188 

01613 

IF  OPTN  -  'OELETEP'  GO  TO  OELETE-P. 

CM000085 

00189- 

01614 

OA— RE AO. 

CM000085 

00190 

01 6  i  5 

REAO  A-FILlf” AT  E80~60' 7b  A'O-ENO. 

CM 000085 

00191 

01616 

IF  Al  NOT  >  A10  GO  TO  OA- REAO. 

CM000085 

00192 

01617 

0AR1. 

00193 

01618 

MOVE  'XXXX'  TO  Al. 

00194 

01619 

REWRITE  AIN. 

CM000085 

00195 

016191 

REAO  A-FILE  AT  ENO  CLOSE  A-FILE  OPEN 

1-0  A-FILE 

00196 

'  016192 

’  GO  TO  OELETE-A. 

00197 

016193 

IF  Al  *  A10  GO  TO  0AR1. 

00198 

01620 

GO  TO  OELETE-A. 

CM000085 

00199 

01621 

AO-ENO. 

CM000085 

”58200' 

01622  ‘ 

01 SPLAY  'NOT  IN  A-FILE  •  A10  A20. 

CH000085 

00201 

01623 

GO  TO  OELETE-A. 

CM00008  5 

”08202” 

~  01701 

1 

r* 

CM000085 

00203 

01702 

MOVE  1  TO  AA-SH. 

CM000085 

00204 

01703 

OPEN  OUTPUT  A-WORK. 

CM000085 

00205 

017031 

AO- Al  • 

00206 

01704 

READ  A-FILE  At  ENO  GO  TO  AA-REAO. 

CM000085 

00207 

017041 

IF  Al  »  'XXXX'  GO  TO  AD-A1. 

00208 

01705 

AA-RE«fT” 

CN000085 

00209 

01705 

REAO  I-FILE  AT  ENO  GO  TO  IAINO. 

CM000085 

002 10 

01707  ” 

IF  OFTFT-  'DELETE B'”  "PERFORM  FINIS-A 

TRRU  lOr  GO'  TO 

0ELETE^BT~CN0oooa5” 

00211 

01708 

IF  OPTM  »  'AOOB  •  PERFORM  FINIS-A 

THRU  AX 

GO 

TO 

AOO-B.  .  CM000085 

00212 

01709 

IF  OPTN  ■  'OELETEC'  PERFORM  FINIS-A 

THRU  AX 

GO  TO 

OELETE-C.  CH00008 5 

00213 

01710 

IF  OPTN  =  'AOOC  •  PERFORM  FINIS-A 

THRU  AX 

GO 

TO 

AOO-C.  CM000085 

00214 

01711 

IF  OPTN  =  'OELETEP'  PERFORM  FINIS-A 

THRU  AX 

GO 

TO 

OELETE-P.  CM000085 

00215 

01712 

AA-  Am 

CM000085 

00216 

01713 

GO  TO  AA-C. 

CM 00008 5 

00217 

01714 

AA-C. 

CM000085 

00218 

01715 

IF  Al  A 10  GO  TO  AA-1 . 

CM00008  5 

00219 

01716 

IF  Al  =  A10  MOVE  1  TO  A-SM. 

C MOO 008 5 

00220 

01717 

AA-B. 

CM050085 

00221 

01718 

WRITE  AMRK  FROM  A-CARO. 

CM000085 

00222 

01719 

GO  TO  AA-REAO. 

CM000085 

00223 

01720 

AA-1. 

CH000085 

00224 

.00225 


01721 

.<U7.Z2__ 


IF  A-SW  »  1  MOVE  0  TO  A=SW‘ 
.  GO  TO  AL— REAP.. 


MOVE  Al  TO  A-CNT 


CH000085 
0085 . 
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00226 

01723 

WRITE  AWRK  FROM  AIN. 

CM0000B5 

00227 

017231 

AA-2. 

0022B 

01724 

REAO  A-FILE  AT  ENO  GO  TO  AI-ENO. 

CM000085 

0022  9 

017241 

IF  A1  =  'XXXX'  GO  TO  AA-2. 

00230 

01725 

GO  TO  A  A- A. 

CMOOOOB5 

00231 

01B01 

AL-REAO. 

CM000085 

00232 

01802 

REAO  A-FILE  AT  ENO  GO  TO  AI-ENO. 

CM000085 

00233 

01B021 

IF  A1  *  'XXXX*  GO  TO  AL-REAO. 

00234 

01803 

IF  A 1  =  A-CNT  GO  TO  AL-REAO. 

CM0000B5 

00235 

01B04 

GO  TO  AA-A. 

CM000085 

00236 

01B05 

AI-ENO. 

CMOOOOB5 

00237 

01B06 

HOVE  1  TO  ENO-SW. 

CM0000B5 

O023B 

01B07 

ALTER  AA-A  TO  PROCEEO  TO  AA-B. 

CMOOOOB5 

00239 

01  SOB 

GO  TO  AA-B. 

CN000085 

00240 

01809 

F1N1S-A. 

CM000085 

00241 

01B091 

MOVE  0  TO  A-SW. 

00242 

01  BIO 

IF  END-SW  =  1  'HOVE  0  TO  ENO-SW  GO  TO  AX. 

CM000085 

00243 

01B101 

IF  A1  >  A10  GO  TO  AF-WRT . 

00244 

OlBll 

AF-REAO. 

CM000085 

00245 

01B12 

REAO  A-FILE  AT  ENO  GO  TO  AX." 

CMOOOOB5 

00246 

018121 

IF  A1  ■  'XXXX1  GO  TO  AF-REAO. 

00247 

01B122 

AF-WRT. 

00248 

01B13 

WRITE  AWRK  FROM  AIN. 

CM0000B5 

00249 

01814 

GD  TO  AF-REAO. 

CM000085 

00250 

01815 

AX. 

CM0000B5 

00251 

01B16 

EXIT. 

CMOOOOB5 

00252 

01901 

OELETE-B. 

CM000085 

00253 

01902 

READ  I-FILE  AT  END  GO  TO  lAlNO. 

CM0000B5 

00254 

01903 

IF  OPTN  -  'ADDS  •  CLOSE  B-F1LE  OPEN  1-0  B-FILE 

CMOOOOB5 

00255 

01904 

GO  TO  AOO-B. 

CM000085 

00256 

01905 

IF  OPTN  -  ' OELETEC*  GO  TO  OELETE-C. 

CM000085 

00257 

01906 

IF  OPTN  «=  1 AOOC  '  GO  TO  AOO-C. 

CM0000B5 

0025B 

01907 

IF  OPTN  -  'DELETEP*  GO  TO  OELETE-P. 

CM000085 

00259' 

0190B 

OB-REAO. 

CMOOOOB5 

00260 

01909 

READ  B-FILE  AT  ENO  GO  TO  OB-ENO. 

CM0OO0B5 

00261 

01910 

IF  B1  NOT  «  BIO  GO  TO  DB-REAO. 

CM000085  '' 

00262 

01911 

IF  B2  NOT  *  820  GO  TO  OB-REAO. 

CM000085 

00263 

019111 

DBRl.  '  '  ’ 

00264 

01912 

MOVE  'XXXX'  TO  Bl. 

CM000085 

00265 

0f9l3 

REWRITE  BIN. 

CM000085 

00266 

019131 

REAO  8-FILE  AT  ENO  CLOSE  8-FILE  OPEN  1-0  8-FILE 

00267 

019132- 

GO  TO  OELETE-B. 

00268 

019133 

'IF  Bl  =  BIO  IF  82  »  B20  GO  TO  0BR1. 

00269 

01914 

GO  TO  OELETE-8. 

CM0d'00"85_ 

00270 

01915 

OB-ENO. 

CM0000B5 

00271 

01916 

DISPLAY  'NOT  IN  B-FILE  •  810  B20. 

CM000085 

00272 

01917 

GO  TO  OELETE-8 . 

CMOOOOB5 _ 

00273 

02001 

AOO-B. 

"CH0000B5 " 

00274 

02002 

MOVE  1  TO  AB-SW. 

CM000085 

"002  75 

02003 

MOVE  0  TO  A-SW.  '  . . 

CM000085 

00276 

02004 

MOVE  0  TO  END-SW. 

CM000085 

00277 

02005 

OPEN  OUTPUT  B-WORK. 

CMOOOOB5 

00278 

020051 

A0-B1  . 

00279 

02006 

REAO  B-FILE  AT  ENO  GO  TO  ABB-REAO. 

CM000085 

00280 

020061 

IF  Bl  *  'XXXX'  GO  TO  AD-B1 . 

00281 

02007 

ABB-REAO. 

CM000085 

00282 

0200B 

REAO  I-FILE  AT  ENO  GO  TO  IA1ND. 

QMO0W85 
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.00283 

02009 

IF  OPTN  =  'OELETEC •  PERFORM  FINIS-B  THRU 

BX 

GO 

TD 

DELETE-C.  CMOOOOB5 

002B4 

02010 

IF  OPTN  -  *4001:'  •  PERFORM  FINIS-0  THRU 

BX 

GO 

TO 

AOO-C.  CKOO0OB5 

002B5 

02011 

IF  OPTS  =  •OELETEP*  PERFORM  FINIS-B  THRU 

BX 

GO 

TO 

OELETE-P.  CH000085 

00286 

02012 

AB-ABO • 

CH0000B5 

002B7 

02013 

GO  TO  AB-AB1. 

CH0000B5 

002BB 

02014 

AB-AB1. 

CN0000B5 

002B9 

02015 

IF  B1  <  BIO  GO  TO  AB-LO. 

CM0000B5 

00290 

02016 

IF  B1  «  BIO  MOVE  1  TO  A-SW. 

CM0000B5 

00291 

02017 

AB-AB2. 

CM0000B5 

00292 

0201 B 

WRITE  BWRK  FROM  B-CARD. 

r 

CM0000B5 

00293 

02019 

GO  TO  ABB-REAO. 

> 

| 

CM000085 

00294 

02020 

AB-LO. 

* 

1 

CM0000B5 

00295 

02021 

IF  A-SW  =  1  MOVE  0  TO  A-SW  MOVE  B1  TO  B-CNT 

i 

CM0000B5 

00296 

02022 

GO  TO  RD-ABLO. 

i 

CMOOOOB5 

00297 

02023 

WRITE  BWRK  FROM  BIN. 

i 

i 

CMOOOOB5 

00298 

020231 

AB-L01. 

00299 

02024 

REAO  B-FILE  AT  END  GO  TO  B-ENO. 

i 

i 

CM0000B5 

00300 

020241 

IF  Bl  =  'XXXX*  GO  TO  AB-L01. 

i 

00301 

0202  5 

GO  TO  AB-ABO. 

CM0000B5 

00302. 

02101 

RO-A01O. 

i 

CM000085 

00303 

02102 

REAO  B-FILE  AT  ENO  GO  TO  B-ENO. 

i 

CMOOOOB5 

00304 

021021 

IF  Bl  =  *XXXXa  GO  TO  RD— A BLO. 

00305 

02103 

IF  Bl  =  B-CNT  GO  TO  RO-ABLO. 

CM0000B5 

00306 

02104 

GO 'TO  AB-ABO. 

CM0000B5 

00307 

02105 

B-ENO. 

CM0000B5 

00308 

02106 

MOVE  1  TO  ENO-SW. 

CM0000B5 

00309 

02107 

ALTER  AB-ABO  TO  PROCEEO  TO  AB-AB2. 

CM0000B5 

00310 

0210B 

GO  TO  AB-AB2 . 

CMOOOOB5 

00311. 

02109 

FINIS-B. 

CM000085 

00312 

02110 

IF  ENO-SW  <  1  GO  TO  BX. 

CM0000B5 

00313 

021101 

IF  B1n>  BIO  go  TO  fb-wrt. 

00314 

02111 

FB-RO. 

CM000085 

00315 

02112 

REAO  B-FILE  AT  END  GO  TO  BX. 

CM0000B5 

00316 

021121 

IF  Bl  =»  'XXXX'  GO  TO  FB-RO. 

00317 

021122 

FB-WRT. 

0031B 

02113 

WRITE  BWRK  FROM  BIN. 

CMOOOOB5 

00319 

02114 

GO  TO  FB-RO. 

CM0000B5 

00320 

02115 

8X. 

CM0000B5 

00321 

02116 

EXIT. 

CM0000B5 

00322 

02201 

DELETE-C. 

CM0000B5 

00323 

02202 

READ  l-FILE  AT  END  GO  TO  IA1N0. 

CM0000B5 

30324 

02203 

IF  OPTN  =  'ADOC  •  CLOSE  C-FILE  OPEN  I 

-0 

C-FILE 

CM0000B5 

00325 

02204 

GO  TO  AOO-C. 

CM0000B5 

00326 

02205 

IF  OPTN  *  'OELETEP '  GO  TO  DELETE-P. 

CM000085 

30327 

02206 

OC-REAO. 

✓ 

CM0000B5 

00328 

02207 

REAO  C-FILF  AT  FNO  GO  TO  CO-ENO. 

CH0000B5 

00329 

0220B 

IF  C4  NOT  =  C 40  GO  TO  OC-REAO. 

CH000085 

00330 

02209 

MOVE  'XXXXXX'  TO  C4. 

CM0000B5 

00331 

02210 

REWRITE  CIN. 

03332 

02211 

GO  TO  OELETE-C. 

CM0000B5 

00333 

02212 

CO-END. 

CM00D0B5 

00334 

02213 

DISPLAY  'NOT  IN  C-FILF  •  C40. 

30335 

02214 

GQ  T3  OELETE-C. 

CM0030B5 

00336 

02301 

ADO-C. 

CMOOOOB5 

30337 

02302 

MOVE  1  TO  AC-SW. 

CM000085 

00338 

02303 

MOVE  0  TO  END-SW  A-SW. 

CM000085 

00339 

02304 

OPEN  OUTPUT  C-WORK. 

CMOOOOB5.  . 
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00340  023041  A0-C1 


00341  "  "02305"  '  "READ ‘c-FILE  At"ENO  GO''TO 'ACC-REAO.  "  "  CM000085 

00342  023051  _ IF  C4  »  'XXXXXX'  GO  TO  A0-C1.  _  _ _ _ _  _  __ _ _ 


00343  02306  '  ACC-REAO.  "  CM000085 

J0344  02307  REAO  I-FILE  AT  ENO  GO  TO  IA1N0.  CN000085 

00345  02308  IF  OPTN  -  * OELETEP'  PERFORM  FINIS-C  THRU  CX  CM000085 

00346  _  02309  GO  TO  OELETE-P.  CH000085 

00347  02310  AC-ACCO.  CM000085 

JJ0348  _ 02311  GO  TO  AC-ACC2.  _  _  CM000085 

00349  '  02312  AC- ACC 2*  CM000085 

J10350 _ 02313  IF  C4  <  C40  GO  TO  AC-LO.  _  CH0000B5 

00351  02314  IF  C4  =  C40  MOVE  1  TO  A-SW.  CMOOOOB5 

00352  02315  AC-_ACC1._  _  _ _  _ CH000085 

00353'  02316"  WRITE”  CHRK  FROMC-CARD.  .  '  CN000085 

00354  02317  GO  TO  ACC-REAO.  _ _  _  _  CM000085 

00355'  02318'  '  AC-LO.  "  '”  '  '  ”  CM00008'5 

00356  02319  IFVA-SW  =  l'  HOVE  0  TO  A-SM  MOVE  C4  TO  CH1NT  _CN000085 

00357  02320  GO  TO  LO-ACRO.  '  "  CNb6o"085 

00358  _  02321  WRITE  CMRK  FROM  CIN.  _  _  CM0000B5 

00359'  -0232 li  AC-L01. 

00360  02322  REAO  C-FILE  AT  ENO  GO  TO  AC-ENO.  _  _  CM000085 


00361  023221"  "  IF  C4  »  'XXXXXX*  GO' TO  AC-LOI. 

00362  02323  GO  TO  AC-ACCO. _ _  _  CM000085 

00363  02401  AC-ENO.  "  «  CM0‘60085 

00364  02402 _ ALTER  AC-ACCO  TO  PROCEEO  TO  AC-ACC1.  CM000085 

00365  02403  "  “  MOVE  l"  TO" ENO-SW .'  '  .  v  *  CM0bb0B5 

00366  02404  GO  TO  AC-ACC1.  CM000085 

00367  02405"  LO-ACRO^  .  CM000085 

00368  02406  REAO  C-FILE  AT  ENO  GO  TO  AC-ENO.  CM000085 

00369  024061  IF  C4  -  'XXXXXX*  GO  TO"  LO-ACRO. 

00370  02407  IF  C4  »  C-CNT  GO  TO  LO-ACRO.  CM000085 

00371  b2~408  .  GO  TO  AC-ACCO.  CN0000B5 

00372  02409  F1H1S-C. _  CN000085 

"00373""  "02410  IF  ENO-SW  »  1  MO'VE  O  TO  ENO-SW  GO  TO  CX.  01000085 

00374  _ 024101  IF  C4  >  C40  GO  TO  FC^WRT.  _  _ 

00375  02411  FC-RO.  CM000085 

00376  02412  REAO  C-FILE  AT  ENO  GO  TO  CX.  CN000085 

30377  024121  "  '  IF  C4  »  'XXXXXX'  GO  TO  FC-RO. 

00378  024122  FC-WRT. _  _ _  _ _ 

00379  02413  "  "  WRITE  CWRK  FROM  CIN.  CH000085 

00380  02414  GO  TO  FC-RO.  CN000085 

00381  '02415  CX.  CHOOOOB5 

00382  02416  EXIT.  CN000085 

"00383  02501  OELETE-P.  CN000085 

00384  02502  IF  AA-SW  -  1  CLOSE  A-MORK  GO  TO  0P-8A. 

00385  02503  OPEN  OUTPUT  A-WORK.  CN00008S 

00386  02504  CLOSE  A-FILE  OPEN  1-0  A-FILE.  CN000085 

00387'  02505  OP-ARD.'  CM000085 

00388  02506  _  READ  A-FILE  AT  ENO  GO  TO  AP-ENO.  '  CN000085 

00389  '  "'02507  ""  IF  A1  =  'XXXX*  GO  TO  OP-ARO. 

00390  02508  WRITE  AHRK  FROM  AIN.  CH000085 

"00391  02509  GO  TO  OP-ARO.  CM000085 

.00392  02510  AP-ENO.  CN000085 

00393  02511  CLOSE  A-WORK.  CH000085 

00394_  02512  OP-BA.  CN000085 

"00395  02513  IF  AB-SW  =  1  CLOSE  B-WORK  GO  TO  OP-CA. 

00396  02514  OPEN  OUTPUT  B-WORK.  CHOOOOB5 
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00397 
00398 
00399 
00400 
00401 
00402 
00403 
00404 
00405 
0040b 
0040  7 
00408 
00409 
00410 
00411 
00412 
00413 
00414 
00415 
00416 
00417 
00418 
00419 
00420 
00421' 
00422 
00423 
0042  4 
0042  5 
00426 
0042  7 
00428 
00429 
00430 
00431 
00432 
00433 
00434 
00  43  5 
00436 
00437 
00438 
00439 
00440 
00441 
00442 
00443 
00444 
00445 
00446 
0044  7 
00448 
00449 
00450 
00451 
00452 
00453 


02515  CLOSE  8-FILE  OPEN  1-0  8-FILE. 

02516  3P-BR0. 

02517  REAO  8- FILE  AT  ENO  GO  TO  BP-ENO. 

0251 B  IF  B1  =  'XXXX*  GO  TO  OP-BRO. 

02519  WRITE  8WRK  FROM  BIN. 

02520  GO  TO  OP-BRO. 

02521  BP-ENO. 

0252?  CLOSE  B-WORK. 

02523  OP-CA. 

02524  IF  AC-SW  =  1  CLOSE  C-WORK  GO  TO  OPLO. 

02525  0»EN  OUTPJT  C-WORX. 

02601  CLOSE  C-FILE  OPEN  I-D  C-FILE. 

02602  OP-CRO. 

02603  READ  C-FILE  AT  ENO  GO  TO  CP-END. 

02634  IF  C4  =  'XXXXXX'  30  TO  OP-CRO. 

02605  WRITF  CWRX  FROM  CIN. 

02606  GO  TO  OP-CRO. 

02607  CP-END. 

026C8  CLOSE  C-WORK. 

02639  OPLO. 

02610  OPEN  1-0  W-HOOK. 

026*1 2  RF AD  W-HOOK  AT  ENO  GO  TO  WH-ENO. 

02613  OPI-RO. 

02614  REAR  l-FILE  AT  ENO  GO  TO  IF-ENO. 

02615  OPEN  1-0  C-WORK • 

02616  DPC-RO. 

02617  READ  C-WI1RK  AT  ENO  GO  TO  OP-CWX. 

026 1 3  IF  OFLPAR'1  NOT  -  C2W  GO  TO  OPC-RD. 

02619  HOVE  SPACE  TO  C2W. 

02620  RFWRITE  CWRX. 

02621  GO  TO  OPC-RO. 

02622  OP-CWX. 

02623  CLOSE  C-WORX. 

02624  OPEN  1-0  8-WORK. 

02701  0°B-R0. 

02702  READ  B-WORK  AT  ENO  GO  TO  0P-8WX. 

02703  IF  DELPARM  NOT  »  810W  GO  TO  OPB-RD. 

02704  HOVE  SPACE  TO  B10W. 

02705  RFWRITE  BWRK. 

02706  GO  TO  OPB-RO. 

02707  OP-BWX. 

02709  CLOSE  8-WORK. 

02709  OP.  IF  OELPARN  NOT  »  WH2  GO  TO  DP-DPH. 

02710  93 VE  ■XXXXXXXXX1  TO  WH2. 

02711  OPEN  1-0  W-PATH. 

02712  OP-PTRO. 

02713  RE  AO  W-PATH  AT  ENO  GO  TO  WP-END. 

02714  IF  WP6  -  WH4  GO  TO  ITEM-EQ. 

02716  GO  TO  OP-PTRO. 

02717  ITEH-FU. 

02718  HOVE  'XXXX1  TO  WP2 . 

02719  REWRITE  WPAT. 

02720  GO  TO  OP-PTRO. 

02721  OP-OPH. 

02722  RE AO  W-HOOK  AT  ENO  GO  TO  WH-ENO. 

02723  GO  TO  OP. 

02724  WP-ENO. 


CH000085 

CMOOOOB5 

CH000085 

CH000085 

CH0000B5 

CH0000B5 

CM0000B5 

CM0000B5 

CMO0008S 

CH033085 
CN000065 
CH000085 
CHO 00085 
CH00008S 

CH000085 
CM000085 
CH000085 
CH000085 
CN000085 
CH000085 
CNOOOOB5 
CM000085 
CMOOOOB5 
CH000DB5 
CH0Q0085 
CHOOOOB  5 
CHOOOOB5 
CH000085 
CMOOOOB5 
CMOOOOB5 
CHOOOOBS 
CH0000B5 
CHOOOOB 5 

CHD000B5 

CN000085 

CM000085 
CH000085 
CM0000B5 
CH000085 
"CHOOOOB  5 
CH000085 
CH0O0O85 
CH000085 

CH000085 

CH000085 

CH000085 

CH000085 

CH0000B5 

CHOOOOBS 

CH000085 

CH000085 

CHOOOOB5 
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00454 

02725 

CLOSE  W-PATH. 

CM000085 

00455 

02801 

REWRITE  WHOK. 

CH000085 

00456 

02802 

GO  TO  OP-OPH. 

CN000085 

0045  7 

02803 

WH-END. 

CM000085 

00450 

02804 

CLOSE  W-HOOK. 

CN000085 

00459 

02805 

OPEN  1-0  H-HOOK. 

CN000085 

00460 

02806 

GO  TO  OPI-RO. 

CN000085 

00461 

02807 

IF-END. 

CN000085 

00462 

02808 

CLOSE  A -FILE  8-FILE  C-FILE. 

CM300085 

00463 

02810 

CLOSE  I-FILE. 

CN000085 

00464 

02811 

CLOSE  W-HOOK. 

00465 

02812 

OPEN  1-0  W-HOOK  W-PATH. 

CN000085 

00466 

02813 

OPEN  OUTPUT  HK-OUT  PT-OUT. 

CH000085 

00467 

02814' 

'  if-ro'h'.' 

CN000085 

00468 

02815 

RE  AO  W-HOOK  AT  ENO  GO  TO  ALt~HK. 

CH000085 

00469 

02816 

IF  WH2  =  •XXXXXXXXX*  GO  TO  IF-RDH. 

CH000085 

00470 

02817 

WRITE  OHOK  FROM  WHCIK. 

CN000085 

00  471 

02818 

GO  TO  IF-ROH. 

CN000085 

00472 

02819 

ALL-HK. 

CH000085 

00473 

' 02820' 

CLOSE  W-HOOK. 

CN000085 

00474 

02  821 

CLOSE  HK-OUT. 

CN000085 

00475 

"  02822 

'  i  f'-'rop. 

CM000085 

00476 

02823 

READ  W-PATH  AT  ENO  GO  TO  ALL-PT. 

CH000085 

00477" 

02824 

. I F  MP2  =  'XXXX*  GO  TO  IF-RDP. 

CN000085 

00478 

02825 

WRITE  OPAT  FROM  WPAT. 

CH000085 

00479  ' 

02901 

GO  TO  IF-ROP. 

CM000085 

00480 

02902 

ALL-PT. 

CN000085 

00481  ' 

02903 

CLOSE  W-PATH 

CH000085 

00482 

02904 

CLOSE  PT-OUT. 

CH000085 

00483 

02905 

STOP  RUN. 

CM000085 
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